[Mechanist]

Цитата: Сообщение от CrVik ... while not dm.ADOTable.Eof do begin FS:=TFileStream.Create( 'File'+ IntToStr(i) + '.doc', fmCreate);

Так а зачем ты делаешь создание потока файла в цикле?! Вынеси его за цикл и пиши сколько хочешь записей!