TIdIRCOnCTCPQuery = procedure (Sender: TObject; User: TIdIRCUser; AChannel: TIdIRCChannel; Command, Args: String; var ASuppress: Boolean) of object;