Запись из таблицы в файл

[allegator333]

у меня есть таблица в нем 2 поля(код,название), как мне сохранить все поля(название) в текстовый файл(.txt) в тако виде:
название1
название2
название3

[Gulik]

procedure TForm1.Button1Click(Sender: TObject);
   var
      StrList : TStrings ; // Объявляем переменную
begin
   StrList := TStringList.Create ; // Создаем объявленную переменную типа TStrings (аналог компонента Memo)
   Table1.First ; // Переходим в начало таблицы
   while not Table1.Eof do begin // Создаем цикл перебора записей в таблице
         StrList.Add(Table1.FieldByName('Name').AsString) ; // Добавляем запись из поля "Name" в переменную
         Table1.Next ; // Переходим к следующей записи
         Application.ProcessMessages ; // Чтобы программа не зависала (если много записей)
   end ;
   StrList.SaveToFile('save.txt');   // Сохраняем в файл
   StrList.Free ; // Уничтожаем переменную
end;