TWMSize = packed record
  Msg: Cardinal;
  SizeType: Longint;
  Width: Word;
  Height: Word;
  Result: Longint;
end;

struct TWMSize {
  unsigned Msg;
  Longint SizeType;
  Word Width;
  Word Height;
  Longint Result;
};