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