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;