// Hiermit kann man die Rot-, Grün- und Blau-Anteile einer Farbe in einem
// String ausgeben.

// Getestet mit D4 unter WinME

function colorStr(farbe:TColor;hex:boolean):string;
var r,g,b:byte;
begin
farbe:=colortorgb(farbe);
r:=getrvalue(farbe);
g:=getgvalue(farbe);
b:=getbvalue(farbe);
if hex then
result:=inttohex(r,2)+#32+inttohex(g,2)+#32+inttohex(b,2)
else
result:=inttostr(r)+#32+inttostr(g)+#32+inttostr(b);
end;

// Beispielaufruf
procedure TForm1.Button6Click(Sender: TObject);
var ts:TStringlist;
begin
label1.caption:=colorStr(clBtnFace,false);
label2.caption:=colorStr(clBtnFace,true);
end;