Parlayan buton yapma

var c:TColor;

begin

c.label1.color;

label1.color:=label1.font.color;

label1.font.color:=c;

end;