TWMGetText = packed record
  Msg: Cardinal;
  TextMax: Integer;
  Text: PChar;
  Result: Longint;
end;

struct TWMGetText {
  unsigned Msg;
  int TextMax;
  const char * Text;
  Longint Result;
};