Source position: IdFTPServer.pas line 727
type TIdOnClientID = procedure(
ASender: TIdFTPServerContext;
const AID: string
) of object;