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