Source position: tcpsocketclient.pas line 14
type TOnSendFileProgress = procedure(
Sender: TObject;
fileName: string;
sendFileSize: Integer;
fileSize: Integer
) of object;