刚开始用delphi 遇上个color 的问题

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ColorDialog1.Execute;
  Shape1.Brush.Color := ColorDialog1.Color;
  Edit1.Color := clSilver;
  cc := ColorToString(ColorDialog1.Color);
  Edit1.Text := cc;
end;上面这个语句是想在Edit1.Text中读取ColorDialog1所选的颜色代码，但得到的是（$00408080）这样的代码，我想转为十六进制的（如：#FF0000）该怎么写？

Answer 1

function ColorToHex(color: TColor):string;
begin
  Result := IntToHex(ColorToRGB(color), 6);
  Result := '#' + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);
end;

Answer 2

谢谢 linzhengqun(风。爱的翔舞)，太谢谢你提供的函数啦，又给我继续delphi增加了无限动力：）