Source position: ucbase.pas line 291
type TCustomInitialMessage = procedure(
Sender: TObject;
var CustomForm: TCustomForm;
var Msg: TStrings
) of object;