Developing.ru

Пишу прогу по заданию. Надо сделать поиск файла по имени и по содержимому. За поиск по содержимому я еще не брался, а при создании поиска по имени наткнулся на проблему, которую сам разрешить не могу.
Процедура выглядит так:

procedure TLoadForm.LoadButtonClick(Sender: TObject);
var
SearchFile:TSearchRec;
LoadF:TStringList;
begin
if FindFirst('C:\birds\data\ '+edit4.Text+ '.txt', faAnyFile, SearchFile)=0 then
begin
LoadF := TStringList.Create;
LoadF.LoadFromFile ('c:\birds\data\' +edit4.Text+ '.txt');
Edit1.Text := LoadF.Strings[1];
Edit2.Text := LoadF.Strings[2];
Edit3.Text := LoadF.Strings[6];

Компилирует нормально, но при работе, когда пытаюсь найти файл (существующий), тормозится и выдает следующее:
Source Breakpoint at $00455303: D:\!!УЧЕБА!!\Delphi\Birds\LoadData.pas line 67. Process Birds.exe (1704)

Ошибку выдает на выделенной мною строке.
менял значение FindFirst на 1, результат тот же.

Попробуй мышкой на класный крушек слева строки нажать, чтобы он убрался.

LAngel, затупил))) признаю))))
с похмела плохо работаецца)