[angvelem]

Ух, утомил:

Код:

procedure TMainForm.SpeedButton5Click(Sender: TObject);
var
  St : String;
begin
  St := ExtractFileDir(ParamStr(0)) + '\Абонент\' + Edit5.Text;
  if FileExists(St) then
  begin
    AssignFile(DAbonent, St);
    try
      Reset(DAbonent);
      Read(DAbonent, Abonent);
    finally
      CloseFile(DAbonent);
    end;
    Edit2.Text := Abonent.FIO;
    Edit3.Text := Abonent.Adress;
    Edit4.Text := Abonent.Telefon;
    Edit5.Text := Abonent.Data;
    Memo1.Text := Abonent.Spisok;
  end
  else
    ShowMessage('Файл не найден');
end;