Purgen, пургену обожрался? Куда тебя несет?
Это была только мотивация к действию, а не тупо все что бы люди просили. Жаль, что твоему низкоуровневому уму это не понять, ведь он способен только ересь в сети сеять.

var i:integer;
f:textfile;
s:string;

begin
for i:=0 to 9999999999 do
memo1.lines.add(floattostr(i));
s:=memo1.lines.text;
assignfile(f, 'куда записать текстовик');
rewrite(f);
writeln(f,s);
closefile(f);
end;
end.

З.Ы. не тестил. Ждать пока цикл запишет всё цифры придётся долго.