[t116]

Здравствуйте. Это кусок кода из бд на основе типизированных бинарных файлов. Когда я заполняю поля бд. затем сохраняю у меня в каталоге создается файл. А когда выполняется поиск при помощи этого кода выдается ShowMessage('Файл не найден') С 19 часов сижу не могу разобрать. Помогите)

Код:

procedure TMainForm.SpeedButton5Click(Sender: TObject);
begin
  SetCurrentDir(ExtractFilePath(Application.ExeName)+'Абонент');
try
  if FileExists(Edit5.Text)=True
then begin
  AssignFile(DAbonent,Edit5.Text);
  Reset(DAbonent);
  Read(DAbonent,Abonent);
  CloseFile(DAbonent);
    Edit2.Text:=Abonent.FIO;
    Edit3.Text:=Abonent.Adress;
    Edit4.Text:=Abonent.Telefon;
    Edit5.Text:=Abonent.Data;
    Memo1.Text:=Abonent.Spisok;
end else
      ShowMessage('Файл не найден');
Except
Exit;
end;