ColorDialog - pomocy

Chciałbym aby kod koloru (tak jak w html np #FFFFFF) ukazywał się w edit1. Napisałem procedurke ale coś w niej nie działa. Cały czas pojawia się kod C0C0C0. Może ktoś mi powiedzieć czego jej brakuje i najlepiej poprawić ją??

Dzięki

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
result: string;
RGB: LongInt;
Red, Green, Blue: Integer;
begin
if colordialog1.Execute then
begin
RGB := ColorToRGB(color);
Red := GetRValue(RGB);
Green := GetGValue(RGB);
Blue := GetBValue(RGB);
Result := IntToHex(Red,2) + IntToHex(Green,2) + IntToHex(Blue,2);
edit1.Text:=result;
end;
end;

a gdzie ustawiasz "color"??

// masz w FAQ - na 101% działające...

no wlasnie gdzie ma byc?? Pomozcie - dopiszcie co trzeba . Prosze

var
Kolor: string;
R, G, B: Integer;
begin
if c.Execute then
R := GetRValue(c.Color);
G := GetGValue(c.Color);
B := GetBValue(c.Color);
Kolor := '<#' + IntToHex(R, 2) + IntToHex(G, 2) + IntToHex(B, 2) + '>';
Showmessage(Kolor);

z FAQ ........