function GetRGB(const Color: TColor): TRGB;
type PColor=^TColor;
begin
  PColor(@Result)^ := Color2RGB(Color);
end;