Source position: IdFTPServer.pas line 729
type TIdOnBanner = procedure(
ASender: TIdFTPServerContext;
AGreeting: TIdReply
) of object;