widestring + widestring =空 ,請高手指點！

[devhp]

var
  k:integer;
  w,s:widestring;

begin
   w:= ('字符串相加');
   s:='';
   for k:= 0 to length(w) do begin
      s:= s+w[k];
      m1.lines.add(s);// 這樣子結果是空的。
      m1.lines.add(w[k]);//widestring類型的Tmemo  加入是正常的
   end;

   edit1.Text:=s;//這里結果也是空的

到底要怎么寫s:= s+w[k]; 才能得到結果 '字符串相加';

[hsfzxjy]

1 to length(w)

[devhp]

非常感謝大大指點！

[hsfzxjy]

呵呵，不用谢。