Set limit for string

You can set limit for the string, when you define a variable of string type. But it will variable of ShortString type, if you will set a limitation for the string.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStr: string[60];
begin
  MyStr:='This string must contain not more 60 symbols';
  Label1.Caption:=MyStr;
end;