Delphi中字串长度超过255,怎么解决

Delphi中字串长度超过255,如何解决？
如下程序:
procedure TForm1.Button1Click(Sender: TObject);
var
 s1,s2,s:String;

begin s1:='dfsaaaafffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff';
  s2:=s1;
  s:=s1+s2;
  Edit1.Text:=s;
  memo1.Lines.Add(s);
end;
我想用一个超过255长度的字符,这样就不会出错,s长度就可以超过255.

但是如果我把s1的值复制两遍给s,就会出现编译错误,我这样写也不行.
var
{$H+}
 s:AnsiString;
当s的长度超过255后还是会出现编译错误.

请教各位,当我想给变量赋值超过255时,怎么样才可解决?
谢谢了!


------解决方案--------------------
Delphi中的String最大只能是255,如果你有多于255个字符的需要，你可以用TSstringList或定义一个动态字符数组，例如：
var
StrList: TStringList
Chr: Array of char;
------解决方案--------------------
编译器默认情况下，视string=AnsiString