델파이 색상코드값을 html 형식으로 나타내기

procedure TForm1.Button1Click(Sender: TObject) ;

  function ColorToHtml(DColor:TColor):string;
  var
    tmpRGB : TColorRef;
  begin
    tmpRGB := ColorToRGB(DColor) ;
    Result:=Format('#%.2x%.2x%.2x',
                   [GetRValue(tmpRGB),
                    GetGValue(tmpRGB),
                    GetBValue(tmpRGB)]) ;
  end; {function ColorToHtml}

begin
  if ColorDialog1.Execute then
   Label1.Caption:=ColorToHtml(ColorDialog1.Color) ;
end;