Source position: _crw_tcp.pas line 154
type TSocketReporter = procedure(
Pipe: TSocketPipe;
When: Double;
What: PChar;
Code: Integer
);