[[cHackAll]]

Código Delphi [-]
 AssignFile(archivo, 'archivo.txt');
 {$i-}Reset(archivo);{$i+}
 if IoResult = 0 then
  begin
   while not EOF(archivo) do
    Readln(archivo, Texto);
   CloseFile(archivo);
  end;