TWMCreate = packed record
  Msg: Cardinal;
  Unused: Integer;
  CreateStruct: PCreateStruct;
  Result: Longint;
end;

struct TWMCreate {
  unsigned Msg;
  int Unused;
  PCreateStruct CreateStruct;
  Longint Result;
};