[Der_G()RuNu(h]

написал этот код, чтобы искать файлы в папках:

Код:

if FindFirst('*',faAnyFile,Searchrec)=0 then
    if Searchrec.Name[i]<>'.' then
      begin
        MainForm.Memo1.Lines.Add('>>>>'+Searchrec.Name);
        ChDir(Searchrec.Name);//âîéòè â ïàïêó
        Find;
        ChDir('..');//âûéòè èç ïàïêè
        MainForm.Memo1.Lines.Add('<<<<'+Searchrec.Name);
      end;
    until FindMext(Seachrec)<>0;

но делфи ругается перед "until", в чем причина?