Маленькая помощь с паскалём

Привет всем. Помогите, кто может с паскалём..
Нужно чтобы программа искала файлы, в которых имеется слово 'while' иль что-нибудь иное.
А у меня Access Denied (error 5) выдаёт FP.
Код :
-------------
Program _AllDir;

Uses Dos;

Var iskomoe:String;

Procedure Alldir(Dir: Pathstr);

Var
SR: SearchRec;
T:String;
Stroka:String;
F: File of Text;


Begin

Dir:=Dir+'\';
FindFirst(Dir+'*.*',AnyFile,SR);
While DosError=0 Do
   With SR Do Begin
     If Attr And Directory = Directory
       Then t:='<DIR>'
       Else Str(Size:1,T);
     {Writeln(Name:12,T:12,Attr:8);}
     FindNext(SR);
   End;
FindFirst('*.*',Directory,SR);
While DosError=0 Do
   Begin
   Assign(F,SR.Name);
   Reset(F);
   Repeat
   If Pos('while',Stroka)=1 then
   Writeln(SR.Name:12,T:12,SR.Attr:8);
   Until(EoF(F));
   close(F);
   With SR Do Begin
   If (Name[1]<>'.')And(Attr=Directory)Then
   AllDir(Dir+SR.Name);
   FindNext(SR);       End;

   End;

End; {Alldir}



Begin
Writeln('Press Enter');
Readln;

AllDir('');

End.
--------------

У меня Win XP (файл то текстовой и не Read-Only). Тут врятли в этом проблема..