BeforeSendReply Event

Notifies the application of a command reply being sent.

Syntax

type TBeforeSendReplyEvent = procedure (
  Sender: TObject;
  ConnectionID: Int64;
  var Code: Integer;
  var Reply: String;
  const Command: String
) of Object;

property OnBeforeSendReply: TBeforeSendReplyEvent read FOnBeforeSendReply write FOnBeforeSendReply;

Remarks

The component fires this event to tell the application that a command reply is about to be sent. The Command parameter indicates the command that induced the reply, and Code and Reply indicate the pre-generated response.

You can alter the response parameters in your code to send bespoke replies.