Source position: IdHL7.pas line 209
type TMessageArriveEvent = procedure(
ASender: TObject;
AConnection: TIdTCPConnection;
AMsg: string
) of object;