[t116]

здесь в Edit2.Text задается имя файла

Код:

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
 SetCurrentDir(ExtractFilePath(Application.ExeName)+'Абоненты');
 Abonent.FIO:=Edit2.Text;
 Abonent.Adress:=Edit3.Text;
 Abonent.Telefon:=Edit4.Text;
 Abonent.Data:=Edit5.Text;
 Abonent.Spisok:=Memo1.Text;
    AssignFile(DAbonent,Edit2.Text);
    Rewrite(DAbonent);
    Write(DAbonent,Abonent);
    CloseFile(DAbonent);
  if FileExists(Edit2.Text)=True
  then
  ShowMessage('Запись сохранена');