Source position: protocoltypes.pas line 230
type TScanReadProc = procedure(
Sender: TObject;
var NeedSleep: LongInt
) of object;