Delphi循环问题

Question

我的程序如下：
times:=0;
remember1:array[0..44] of char='0';procedure TForm1.Button3Click(Sender: TObject);
begin
{  //用字符数组记录每次输入的顶点字母
  remember1[times]:=edit2.text[1];
  //用变量TIMES记录输入的次数
  times:=times+1;
  ......
}在另一个窗体中有
for i:=1 to 45 do
  if remember1[i-1]<>'0'then 
  begin  
     //显示edit2.text[1]  end;
为什么edit2.text[1]的内容不对呢？
如果把for循环改成手动按一下执行一次，则显示正确，又是为什么呢？

Answer 1

times:=0; 
remember1:array[1..45] of char='0'; procedure TForm1.Button3Click(Sender: TObject); 
begin 在另一个窗体中有 
for i:=1 to 45 do 
  if remember1[i] <>'0'then 
  begin  
    edit2.text[i]; 
  end;