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
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
end;
Saludos.