Parlayan buton yapma

Procedure ....(Sender:TObjcet);
var c:TColor;
begin
c.label1.color;
label1.color:=label1.font.color;
label1.font.color:=c;
end;