Supongo que también te servirá algo así.
Código Delphi
[-]var
temp:string;
begin
assignfile(f,'C:\Users\Brandon\Desktop\BRANDONCG\juego\imagenes\Datos.Dat');
reset(f);
c:=0;
temp:='';
while not eof(f) do
begin
seek(f,c);
read(f,r);
Temp:=temp+(r.nombre+' '+inttostr(r.tiempo)+#$A#$D;
c:=c+1;
end;
showmessage(temp);
end;
Saludos.