Delphi - Insertar datos en archivo TXT con un CICLO FOR !!

hola
como le hago para que a traves de un ciclo FOR pueda insertar datos en un archivo TXT??? ya logre hacerlo pero solamente me inserta el ultimoregistro , por ejemplo :

hacer una suma , la cual sea en valor inicial 1 y que vaya hasta 5 PERO en el archivo de texto inserta unicamente el
5
en lugar de que escriba
1
2
3
4
5

esta es la rutina que uso
for i:=0 to 5 do
numerin := a + 1;
showmessage(''+inttostr(a));
assignfile(fichero,'c:/numero.txt');
append(fichero);
writeln(fichero,numerin);
CloseFile(fichero);
showmessage('Embarque capturado');
end;

DONDE ESTA MI ERROR

Hola.
¿Cual es el valor de a?, ¿por que no utilizas i directamente?. Si no vas cambiando el valor de a (que imagino debe ser 4), numerin siempre tendrá el mismo valor, no?.

La facil: metelo en un TStringList con .Add entonces SaveToFile...

Hay un error básico en ese código si lo que quieres es almacenar los valores generados en numerin. El código debería ser:
assignfile(fichero,'c:/numero.txt');
append(fichero);
For i:=0 to 5 do
Begin
numerin := a + 1;
showmessage(''+inttostr(a));
writeln(fichero,numerin);
end; { for }
CloseFile(fichero);
showmessage('Embarque capturado');
end;
aunque la propuesta de kikecg es válida, numerin depende del valor de i, ¿por qué no usar directamente esa variable?, ten en cuenta además que el cliclo for se hace 6 veces y no 5.