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