Как конвертировать RGB в TColor

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

Источник: www.proext.com