TWMHelp = packed record
  Msg: Cardinal;
  Unused: Integer;
  HelpInfo: PHelpInfo;
  Result: Longint;
end;

struct TWMHelp {
  unsigned Msg;
  int Unused;
  PHelpInfo HelpInfo;
  Longint Result;
};