procedure LineaMas(fichero,cadena : string);
var
f : textfile;
begin
assignfile(f,fichero);
if fileexists(fichero) then append(f) else rewrite(f) ;
writeln(f,cadena);
closefile(f);
end;

Facil ¿eh? Para llamarlo en tu programa podrias hacer algo por ejemplo:

...
LineaMas('estado del programa.log','Leyendo del CD rom');
...

Atencion, si el fichero no existe lo crea con esa linea, y si existe, añade la linea al final. Esto se debe a que si intentas añadir al final de un fichero que no existe, el programa da error.

Emmanuel BOUGEARD(03/04/2004, 15:41) if fileexists(fichero) then append(f) else rewrite(f) ; cuando hay un fichero, 'append', no lo contrario!

Saiyine(04/04/2004, 04:17) Mil disculpas, lo corrijo ahora mismo.