Hoi, nog even een simpeler code van TColor naar HTML:

procedure TForm1.Button1Click(Sender: TObject);

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
if ColorDialog1.Execute then
Label1.Caption:=ColorToHtml(ColorDialog1.Color);
end;

Ik zag bij de andere tips net zoiets staan van Marcel, alleen denk ik dat deze nog iets simpeler is. Je hebt overigens wel een ColorDialog, button en label nodig.