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

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

Взято из https://forum.sources.ru

RGB(r,g,b:byte):tcolor

TColor -> RGB

GetRValue(color:tcolor)

GetGValue(color:tcolor)

GetBValue(color:tcolor)

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru