Hola, necesitas hacer un ciclo paar leer todo lo que tienes en el archivo.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
estudiante : TEstudiante;
linea : String;
F : File of TEstudiante;
begin
if OpenDialog1.Execute then
begin
AssignFile( F, OpenDialog1.FileName );
Reset( F );
While not Eof(F) do
begin
Readln( F, Linea);
ShowMessage(Linea);
end;
CloseFile( F );
end;
También puedes utilizar un StringList.
Saluditos