如何把RGB颜色转变成Delphi的 Tcolor?

语法: 
------- 

myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue); 


例子: 
-------- 

form1.color:=rgbtocolor(255,0,0); 


函数: 
--------- 

function RGBToColor(R,G,B:Byte): TColor; 
begin 
  Result:=B Shl 16 Or 
          G Shl 8  Or 
          R; 
end;