TWMTimer = packed record
  Msg: Cardinal;
  TimerID: Longint;
  TimerProc: TFarProc;
  Result: Longint;
end;

struct TWMTimer {
  unsigned Msg;
  Longint TimerID;
  TFarProc TimerProc;
  Longint Result;
};