TWMCharToItem = packed record
  Msg: Cardinal;
  Key: Word;
  CaretPos: Word;
  ListBox: HWND;
  Result: Longint;
end;

struct TWMCharToItem {
  unsigned Msg;
  Word Key;
  Word CaretPos;
  HWND ListBox;
  Longint Result;
};