Source position: ucbase.pas line 285
type TCustomLoginForm = procedure(
Sender: TObject;
var CustomForm: TCustomForm
) of object;