Source position: IdIdentServer.pas line 70
type TIdIdentQueryEvent = procedure(
AContext: TIdContext;
AServerPort: TIdPort;
AClientPort: TIdPort
) of object;