TWMMDINext = packed record
  Msg: Cardinal;
  Child: HWND;
  Next: Longint;
  Result: Longint;
end;

struct TWMMDINext {
  unsigned Msg;
  HWND Child;
  Longint Next;
  Longint Result;
};