TWMChooseFont_GetLogFont = packed record
  Msg: Cardinal;
  Unused: Longint;
  LogFont: PLogFont;
  Result: Longint;
end;

struct TWMChooseFont_GetLogFont {
  unsigned Msg;
  Longint Unused;
  PLogFont LogFont;
  Longint Result;
};