Obtener RGB a partir de HTML

[[xEsk]]

Hola, el código que has puesto aquí esta hecho un "churro" (y lo digo con todo el cariño xD).

Tienes procedures dentro de procedures, y por esto te da errores.

Te pongo un ejemplo de como podrias estructurarlo:

Código Delphi [-]
function HtmlToColor(Color: string): TColor;
begin
  Result:=StringToColor('$' + Copy(Color, 6, 2) + Copy(Color, 4, 2) + Copy(Color, 2, 2));
end;

function ColorToHtml(DelphiColor:TColor):string;
var
  tmpRGB : TColorRef;
begin
  tmpRGB := ColorToRGB(DelphiColor);
  Result:=Format( '#%.2x%.2x%.2x',
                 [GetRValue(tmpRGB),
                  GetGValue(tmpRGB),
                  GetBValue(tmpRGB)]);
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  // tu codigo del "SpeedButton OnClick"
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  // tu codigo del "TrackBar OnChange"
end;

Saludos.