如何把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;