s

s

Nieco optymalizując kod otrzymamy:

function HexToTColor(sColor:String):TColor;begin:=StrToInt('$'+sColor);  Result:=RGB(GetBValue(Result),GetGValue(Result),GetRValue(Result));end;