AYUDA para leer el contenido de un TexFile

[jorch_yr]

Hola!!!

Cuando leer un fichero de texto y lo coloco en un String al leer el fichero solo me lee la primera line quisiera saver como puedo hacer para que guarde todo el fichero de texto en una variable.

el codigo que uso para leer es :

var
Ar : FileText;
Texto : String;
begin
AssignFile (Ar,'temp.pe');
Reset (Ar);
Read(Ar,Texto);
CloseFile (Ar);
end;


el problema es que al hacer el Read(Ar,Texto); solo me guarda la primera line y yo nesesito guardar todo el contenido del archivo temp.pe que esta compuesto por 15 lineas.


Gracias