TWMDisplayChange = packed record
  Msg: Cardinal;
  BitsPerPixel: Integer;
  Width: Word;
  Height: Word;
  Result: Longint;
end;

struct TWMDisplayChange {
  unsigned Msg;
  int BitsPerPixel;
  Word Width;
  Word Height;
  Longint Result;
};