TWMPaletteIsChanging = packed record
  Msg: Cardinal;
  Realize: HWND;
  Unused: Longint;
  Result: Longint;
end;

struct TWMPaletteIsChanging {
  unsigned Msg;
  HWND Realize;
  Longint Unused;
  Longint Result;
};