TWMSetFont = packed record
  Msg: Cardinal;
  Font: HFONT;
  Redraw: WordBool;
  Unused: Word;
  Result: Longint;
end;

struct TWMSetFont {
  unsigned Msg;
  HFONT Font;
  WordBool Redraw;
  Word Unused;
  Longint Result;
};