马上可结：数组赋值时为何出错呀

Question

procedure TForm1.Button1Click(Sender: TObject);var
  i: integer;
  Filearray:array[1..2]of string; begin  if not OpenDialog1.Execute then exit;
  for i:=1 to OpenDialog1.Files.Count  do  begin
       if i>2 then break;
       FileArray[i]:= OpenDialog1.Files[i]; //等于2就出错了
  end;
        memo1.Lines.Add('文件1：'+ FileArray[1] + ' 文件2：'+ FileArray[2]);end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  i: integer;
  Filearray:array[1..2]of string; begin  if not OpenDialog1.Execute then exit;
  for i:=1 to OpenDialog1.Files.Count  do  begin
       if i>2 then break;
       FileArray[i]:= OpenDialog1.Files[i-1]; //下标从0开始的，要减1
  end;
        memo1.Lines.Add('文件1：'+ FileArray[1] + ' 文件2：'+ FileArray[2]);end;