clfarve til HEX ?

var
  Hex : string;
begin
  Hex:=IntToHex(clYellow,8);
end;

Søgte lige og kom op med denne function
Form1 skifter kun farve hvid koden kun er tal! og så hvis den ikke den farve som er valg i ColorBox1? den laver fejl ved FFFFFF

function ColorToHex(Color: integer): string;
var
r,g,b: byte;
begin
  r := GetRValue(Color);
  g := GetGValue(Color);
  b := GetBValue(Color);
  Result := IntToHex(r,2)+IntToHex(g,2)+IntToHex(b,2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := ColorToHex(ColorBox1.ItemIndex);
form1.Color := strtoint(ColorToHex(ColorBox1.ItemIndex));
end;

Prøv at skrive:
form1.Color := strtoint('$'+ColorToHex(ColorBox1.ItemIndex));

Dette ser ud til at virke, bemærk at der skal bruges ColorBox1.Selected og ikke ColorBox1.ItemIndex:

function ColorToHex(Color: integer): string;
begin
  result:=inttohex(color,8);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := ColorToHex(ColorBox1.Selected);
  form1.Color := strtoint('$'+ColorToHex(ColorBox1.Selected));
end;