Source position: tcpsocketclient.pas line 19
type TOnDisConnected = procedure(
Sender: TObject
) of object;