function RGBToColor(Red,Green,Blue: byte): TColor; begin Result := $02000000 or (Blue shl 16) or (Green shl 8) or Red; end;