TWMStyleChange = packed record
  Msg: Cardinal;
  StyleType: Longint;
  StyleStruct: PStyleStruct;
  Result: Longint;
end;

struct TWMStyleChange {
  unsigned Msg;
  Longint StyleType;
  PStyleStruct StyleStruct;
  Longint Result;
};