Kod koloru

Chcialem zrobic takie cos, gdy sie by wybralo na suwakach kolor (3 suwaki(chodzi o RGB)) to w edicie pokazywalo by mi kod koloru taki, by mozna było ten kolor wykorzystac(dzieki temu kodu w edicie) w html'u, Ale mi w kodzie na np. czerwony wyskakuje takie cos 0000FF , a powinno FF0000. Co jest nie tak? nizej kod:

procedure TForm5.redChange(Sender: TObject);
begin
color.Color:=RGB(Red.Position, Green.Position, Blue.Position);

edtBlue.Text:=IntToStr(Blue.Position);
edtGreen.Text:=IntToStr(Green.Position);
edtRed.Text:=IntToStr(Red.Position);

edtColor.Text:='#'+IntToHex(color.Color,6);
end;

TColor zapisuje kolor w formacie BGR a nie RGB. Po prostu to przestaw odpowiednio...

Dobra ludzie mam swego bleda, i zmienilem tak ze dziala oto jak powinno byc:

Zamiast kodu z ostatniej linijki : edtColor.Text:='#'+IntToHex(color.Color,6);

To wpisalem :
edtcolor.text:=Format('#%.2x%.2x%.2x%',
[Red.Position,
Green.Position,
Blue.Position]);

No i działa dobrze

:-)