Source position: forms.pp line 999
type TCMHintShowPause = record
Msg: Cardinal;
WasActive: Integer;
Pause: PInteger;
Result: LRESULT;
end;