求高手帮忙看看代码那里错了

Question

 procedure Tform1.gx();
 var
 mytxt: TMemoryStream;
 Filebuf: array of pchar;//动态数组声明
 iLen:Int64;
I: Integer;
  begin
    IdFTP1.Get('config.txt','d:\config.txt',true);
     //以文本文档方式读出youvar1的每一行，然后下载该文件
      iLen:=0;
      mytxt:= TMemoryStream.Create;
      mytxt.LoadFromFile(ExtractFilePath(Application.ExeName)+youvar1);//打开文件
      iLen:= mytxt.Size;;//获得指定TXT文件的大小
      SetLength(FileBuf,iLen);//设定动态数组的长度为TXT文件的大小
      mytxt.ReadBuffer(FileBuf[0],iLen);//读取TXT文件全部数据
      //Form1.canvas.Textout(0,0,string(FileBuf));// 在窗体区域上显示字符串
      FreeAndNil(mytxt);
      for I := 0 to iLen do
      begin
         ListBox1.Items.Add(FileBuf[i]);
      end;
end;
帮忙看看那里错了，读文件没问题，问题应该处在数组上

Answer 1

单步调试到哪里报错啊，错误信息是什么啊，都贴上来啊array里存的应该是指针吧，你把mytxt释放掉了，指针指向的地方就有问题了