[xchrom]

Код:

//Начало подрограммы "Нажатие на тулбаттон8"
procedure TMainForm.ToolButton8Click(Sender: TObject);
//объявление переменных
var F: TextFile;// переменная типа текстовый файл
    i: Integer;//перемененная типа целое
begin
 try // попытаемся сделать
 with SaveDlg, PersonsList.Items do // использовать диалог сохранения и список
 begin 
  if Not Execute then Exit; // если в диалоге нажали "Отмену" - выйдем
// если не нажимали "отмену" в диалоге
  SaveToFile(FileName);//сохраняем в файл с именем, которое выбрали в диалоге
  AssignFile(F, Copy(FileName,1,Length(FileName)-4)+'.lso'); // связываем переменную типа файл с файлом, имя которого состоит из имени сохраненного без 4 последних символов с расширение lso
  Rewrite(F);// открываем файл на запись
  for i := 0 to Count - 1 do // по всему списку
  if Objects[i] <> Nil then // если объект существует
  begin //пишем поля объекта в файл построчно
   Writeln(F, (Objects[i] as THuman).FirstName);
   Writeln(F, (Objects[i] as THuman).LastName);
   Writeln(F, (Objects[i] as THuman).Age);
   Writeln(F, (Objects[i] as THuman).Document);
   Writeln(F, (Objects[i] as THuman).Address);
   Writeln(F, (Objects[i] as THuman).Phone);
  end;//конец пишем поля объекта в файл построчно
  CloseFile(F);//закрываем файл
 end;
 except // если что-то не так пошло
  on E: EFOpenError do ShowMessage('Ошибка открытия файла'); // конкретно не получилось файл открыть - показываем сообщение
 end;//конец "попытаемся сделать"
end;//конец подпрограммы