Uses graphics;procedure Tform1.button1click(Sender:TObject);begin form1.Color:=stringtocolor('121'); label1.caption:= ColorToString(form1.color);end;