[AND_REY]

Простенький пример, можно подогнать под свою прогу:

Код:

Var
 F: TextFile;
 n: Integer;
begin
 AssignFile(F, 'MyTxt.txt');
 ReWrite(F);
 For n:= 1 To 100 Do Writeln(F, '№ '+IntToStr(n));
 CloseFile(F);
end;