[khvalera]

Сразу благодарю всех за помощь, самому пришлось бы искать долго и нудно.
Может кто подскажет еще?
Если файл находится в каталоге, все работает ОК, а если оно появляется после
запуска программы последняя просто невидит его и работает до посинения.  

DirAval:='c:\Aval\Rip\';    
DirWClient:='c:\Agent\Rip\';
DirAgent:='c:\Agent\Rip\';

Data:=Edit1.Text;
FindFirst(DirWClient+'v*.*',Attrs,Files);
OldName:=Files.Name;
If Files.Name <>'v'+Data+'_1.zzz' then
repeat
FindNext(Files);   {на ... он сдался}
until  OldName > '';
NewName:='v'+Data+'_1.zzz';
RenameFile(DirWClient+OldName,DirWClient+NewName);

Что не кото незнает как в Delphi делается задержка???