Source position: IdFTP.pas line 676
type TIdFTPBannerEvent = procedure(
ASender: TObject;
const AMsg: string
) of object;