1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var ins: Integer;
    color: String;
begin
 if colord.Execute then
  begin
   ins := ColorToRGB(colord.Color);
   color := IntToHex(ins, 6);
   Richedit1.seltext := '#' + color;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var ins: Integer;
    color, bgr, r, g, b: String;
begin
 if colord.Execute then
  begin
   ins := ColorToRGB(colord.Color);
   bgr := IntToHex(ins, 6);
   r:= bgr;
   g:= bgr;
   b:= bgr;
   Delete(r,1,4);//blau & gelb löschen
   Delete(b,3,4);//rot & gelb löschen
   Delete(g,1,2);//blau löschen
   Delete(g,3,2);//gelb löschen
   color:= r + g + b; // aus b, g & r RGB-Farbe machen...
   Richedit1.SelText := '#' + color;//...und einfügen
  end;