Source position: IdFTP.pas line 672
type TIdOnDataChannelCreate = procedure(
ASender: TObject;
ADataChannel: TIdTCPConnection
) of object;