text 文件内容查找出错，谁帮我看看代码，在线等

Question

想要实现的功能：查找指定内容，如果找到，则输出当前行，以及当前行以下的六行内容，
procedure TForm1.Button1Click(Sender: TObject);
var 
    Ftext:   TextFile;
    fn,lninfo:string;
    res,res1:string;
    intext,outtext:string;
    lnnum:integer;
    findln:integer;
    lncount:integer;
begin
            intext:=edit1.Text ;
            outtext:='';
            fn:= 'c:\text.txt';
            if   FileExists(fn) then
            begin
             AssignFile(Ftext,fn);
             lnnum:=0;
             findln:=0;
             while (not eof(Ftext)) and (findln=0)  do
              begin
                Readln(Ftext,lninfo);
                lnnum:=lnnum+1;
                findln:=0;
                if   (pos(intext,lninfo) >0) then
                  begin
                    findln:=1;
                    outtext:=lninfo;
                  end;
              end;
              lncount:=0;
             while (not eof(Ftext)) and (lncount<=6) and (findln=1) do
             begin
               Readln(Ftext,lninfo);
               outtext:=outtext+lninfo;
               lncount:=lncount+1;
             end;
            CloseFile(Ftext);
            memo1.text:=  outtext   ;
                    end;
end; 

Answer 1

 AssignFile(Ftext,fn); 下面
还差一句 reset(Ftext);

Answer 2

可以啊，我试了你的代码，可以啊，edit1.Text   的内容改成你要着的字符
如果你要读六行，这个要改一下
while   (not   eof(Ftext))   and   (lncount <=5)   and   (findln=1)   do