TReceiveErrorEvent

type TReceiveErrorEvent = procedure(

  ASender: TObject;

  AConnection: TIdTCPConnection;

  AMsg: string;

  AException: Exception;

  var VReply: string;

  var VDropConnection: Boolean

) of object;