[DungeonLords]

2Страдалецъ,
спасибо. Кстати, покопал, вот ещё кое-что: http://www.delphisources.ru/pages/fa...First.php.html и тут есть кое-что, чего вы не учли.

Но уже не важно. Возникла другая проблема. Я пишу:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var TXT:TextFile;
searchResult : TSearchRec;
begin 
  if FindFirst('C:\Wan.txt', faAnyFile, searchResult) = 0 then
  begin
    repeat
AssignFile(TXT,'searchResult.Name');
Reset(TXT);
CloseFile(TXT);
    until FindNext(searchResult) <> 0;

    FindClose(searchResult);
  end;
end;

Но компилятор указывает на REset и пишет, что ошибка "файл не найден", хотя он спокойно лежит по пути C:\Wan.txt!