Создание сразу нескольких txt файлов

[Serge_Bliznykov]

так если там будет 99 папок это мне надо будет писать 99 таких циклов?

ну совсем нет никакого представления, что такое цикл и для чего он нужен в программе

вот код полностью:

var i : integer;
    F : TextFile;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    AssignFile(F,listbox1.items[i] + 'new.txt');
    Rewrite(F);
    Write(F, memo1.text);
    CloseFile(F);
  end;
end;

p.s. код незащищенный, неплохо было бы добавить ещё try .. except для обработки ошибок...

[Nice42ru]

Всё отлично работает!!!
Пс Я сделал код так же как у тебя только где ListBox1.Items.Count забыл -1 поставить и из за этого у меня неработало нечего =)