Source position: tcpsocketclient.pas line 12
type TOnMessageReceived = procedure(
Sender: TObject;
messageReceived: string
) of object;