Цикл в консоли delphi 7 ???

нужно чтобы при нажатии на кнопку шел цикл и не просто шёл а с новой строчки записывался в консольное приложение ну например
1
2
3
4
5
6
7
8
как это сделать у меня только в одной строчке он работает
вот код
s: string;
begin
AllocConsole;
try
Write('Type here your words and press ENTER: ');
Readln(s);
finally
FreeConsole;
end;
end;