var 
  s:string;
  i:integer;
begin
 for i:=1 to 500 do
   s:=s + 'A' 
 memo1.text:=s;
end; 书上说String最大长度为255,但是上面的代码能到500没问题