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