TWMChangeCBChain = packed record
  Msg: Cardinal;
  Remove: HWND;
  Next: HWND;
  Result: Longint;
end;

struct TWMChangeCBChain {
  unsigned Msg;
  HWND Remove;
  HWND Next;
  Longint Result;
};