Нужно !дописывать! немного в текстовый файл. Загружать в TStringList, добавлять и записывать не дело - значительно дольше, особенно при больших файлах - проверено. 
  AssignFile(f, ResultFullFileName);
    if not FileExists(ResultFullFileName) then ReWrite(f)
    else Append(f);
    //---
    for I := 0 to StringList.Count - 1 do
       Writeln(f, StringList[I]);
Намного быстрее...
Но с переходом на 2009/2010 возник вопрос - а как реализовать запись в ansi и в unicode?  TStringList - вроде понятно, там параметр добавился, а как быть с Writeln?

Перекодировать строку в нужный формат перед передачей в Writeln?

klyaksa, зачем же сразу переходить на старый паскалевский файловый доступ. Открываем файл при помощи TFileStream, перемещаем файловый указатель в конец и пишем сколько влезет, хоть 1Тб .

Добавлено через 6 минут и 4 секунды
Кстати для удобства работы со строками лучше использовать дополнительный класс TWriter http://forum.vingrad.ru/forum/topic-250409.html

Alexeis, ты ничего не попутал? 

  Ты по поводу чего? Размер больше 4х Гб TFileStrem точно умеет, хотя в этой теме вопрос размер не актуален.

При увеличении размера сильно растет время... Хотя
  AssignFile(f, ResultFullFileName);
    if not FileExists(ResultFullFileName) then ReWrite(f)
    else Append(f);
продолжает писать как и писал - быстро.

Добавлено через 13 минут и 31 секунду
Да и еще как оказалось 
способ 1 - пишет Не уникод
способ 2 - может и так и так
способ 3 - почему-то Не уникод.
Это видно и по размерам получаемых файлов....

пс
способ 1 - в первом сообщении (он самый быстрый)
способ 2- загрузить в StringList, дописать и сохранить (медлено, но можно уникод и нет)
способ 3 - чуть выше (медлено, почему-то не уникод)

странно при обоих методах компилятор должен генерировать сходный код может заменить
fs.Seek(1, soEnd); на fs.Seek(0, soEnd);

klyaksa, TFileStream.Write вызывает почти сразу WinApi функцию WriteFile(THandle(Handle), Buffer, Count, LongWord(Result), nil) , так что это максимально быстро. Возможно разница в том, что при записи юникода объем в 2 раза больше, вот и время записи выше.

  Ааа, все понял! Прошел дебагом. Дело в буферизации. Writeln буферизирует вывод в файл до CloseFile , тоже самое можно сделать если вывод делать в TMemoryStream , а затем из него копировать в TFileStream при помощи метода CopyFrom. Метод CopyFrom записывает данные буфером 61440 . Думаю, что такой режим будет аналогичен Writeln .

Вряд ли только....
Тестировал все 3 варианта в цикле 1000 итераций. Записывал (дописывал) всего по 3 строки. При первом запуске (когда вначале файлов нет и они создаются в первой из 1000 итерации) способ. 1 - менее сек., сп. 2 и 3 около 3 сек. Следующий запуск 1 сп. - как было, 2 и 3 уже больше... пятый запуск (файлы уже не очень маленькие) - 1 сп. - меньше секунды, 2 и 3 несколько !десятков! секунд.

Старый writeln - быстро, но без юникода, по другому можно и юникод но долго. Вот как бы быстро дописать текст в текстовый файл причем по желанию либо ansi, либо unicode?

  Еще как может быть. Накладных расходов на запись 5 ти байт в современных системах наверное как на 1кб . Так что буферизация иногда может дать прирост и в сотни раз.

Хочу получить нормальный текстовый файл, но получается фигня в виде иероглифов. Где моя ошибка?

Вот так вроде бы заработало...


Добавлено через 7 минут и 26 секунд
Alexeis, да, кстати, так достаточно быстро, от размера файла на глаз не зависти, 1000 итераций за 4.* секунд...
 

Все вопрос решен (наверное  ) :