ficheros en Delphi

LEER:
~~~~~~~~~~~~~~~~

AssignFile (fic,'hojas.txt');
Reset (fic);
Readln(fic,dato);
CloseFile (fic);



ESCRIBIR:
~~~~~~~~~~~~~~~~

AssignFile (fic,'tac.txt');
Rewrite (fic);
writeln(fic,'fin');
CloseFile (fic);


LEE HASTA FINAL DE FICHERO:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


AssignFile (fic,edit3.text);
Reset (fic);
Readln(fic,dato);


while not EOF(fic) do
begin

showmessage(dato);
Readln(fic,dato);


end;