function RGB2TColor (const R, G, B: Byte): Integer;
begin
   // convert hexa-decimal values ​​to RGB
  Result: = R + G shl 8 + B shl 16;
end ;


procedure TColor2RGB (const Color: TColor;var R, G, B: Byte);
begin 
  R: = Colorand $ FF;
  G: = (Color shr 8) and $ FF;
  B: = (Color shr 16) and $ FF;
end ;