Strings Delphi

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