[Niko]

Hola xEsk:

Esto que me dices, al ponerlo en el OnClick del Button me da error en el siguiente Procedure. De todos modos no me he enterado muy bien, a lo mejor soy yo el que lo he puesto mal.

Mira:

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

procedure TForm1.TrackBar1Change(Sender: TObject); // AQUI ME DA EL ERROR
function ColorToHtml(DelphiColor:TColor):string;
var
  tmpRGB : TColorRef;
  begin
  tmpRGB := ColorToRGB(DelphiColor);
  Result:=Format( '#%.2x%.2x%.2x',
                  [GetRValue(tmpRGB),
                   GetGValue(tmpRGB),
                   GetBValue(tmpRGB)]);
end;
begin
Panel2.Color:= RGB(TrackBar1.Position,
                   0,
                   0);
Panel1.Color:= RGB(TrackBar1.Position,
                   TrackBar2.Position,
                   TrackBar3.Position);
Edit1.Text:= IntToStr(TrackBar1.Position);
Edit4.Text:=ColorToHtml(Panel1.Color);
Edit5.Text:= '('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';
end;

De todos modos ya te digo que no se por donde me ando, yo tengo el valor HTML en el EDIT4 y quiero pasarlo a RGB y mostrarlo en label1, label2 y label3.

Me puedes explicar un poquito?, muchas gracias.