StringToColor is returning wrong values, is there any solution to this?
ColorToRGB also did the same and I used the following function to correct it.
function TfrmPrincipal.BugColores(MyColor: integer): string;
MyColor := (MyColor and $FF) shl 16 + // Rojo
(MyColor and $FF00) + // Verde
(MyColor and $FF0000) shr 16; // Azul
Result := IntToHex(MyColor, 6);