TWMKey = packed record
  Msg: Cardinal;
  CharCode: Word;
  Unused: Word;
  KeyData: Longint;
  Result: Longint;
end;

struct TWMKey {
  unsigned Msg;
  Word CharCode;
  Word Unused;
  Longint KeyData;
  Longint Result;
};