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