Source position: IdDICTServer.pas line 81
type TIdDICTAuthEvent = procedure(
AContext: TIdCommand;
Username: string;
authstring: string
) of object;