对文本文件的操作？请看代码！

procedure TForm1.Button6Click(Sender: TObject);
var
  F1:textfile;
  i,j,k:integer;
  FIleName:String;
begin
  i:=0;
  j:=3200;
  Filename:='TT.txt';
  try
    assignfile(F1,FileName);
    begin
      reWrite(F1);
      for k:=i to j do
        writeln(F1,k);
     Flush(F1);
     if trim(self.Edit1.text)<>'' then
     begin
        reset(F1);
        //FileMode:=2;
        for i:=0 to 10 do
        begin
          readln(F1,Filename);
          self.Edit1.text:=intToStr(i);//Filename;
         // showmessage(intToStr(i));
        end;
       writeln(F1,k+1000000);  //这句总出错!!!!!!!!!!!!!!!
     end;
      closeFile(F1);
    end;
  except
   on E: exception do
      showmessage(E.message);
  end;
end;