Leer un fichero de tipo record

[Isuri]

Hola,

tengo un fichero de tipo record, creo que me guarda bien los datos pero cuando intento leer, no leer nada

Código Delphi [-]
function TDatos.getRegistro(Value: string): TRegistro;
var
   Registro: TRegistro;
   FMiAgenda: File of TRegistro;
begin
  AssignFile(FMiAgenda,'Mi Agenda.txt');
  try
    Reset(FMiAgenda);
    while(not EOF(FMiAgenda)) do
      read(FMiAgenda,Registro);
    ShowMessage(Registro.Nombre);
  finally
    CloseFile(FMiAgenda);
    Result := Registro;
  end;
end;

Al hacer showMessage, el mensaje que mando esta vacio

gracias

[[ElKurgan]]

function TDatos.getRegistro(Value: string): TRegistro;
var
Registro: TRegistro;
FMiAgenda: File of TRegistro;
begin
AssignFile(FMiAgenda,'Mi Agenda.txt');
try
Reset(FMiAgenda);
while(not EOF(FMiAgenda)) do
begin
read(FMiAgenda,Registro);
ShowMessage(Registro.Nombre);
end;
finally
CloseFile(FMiAgenda);
Result := Registro;
end;
end;

Un saludo

[Isuri]

Ya bueno ese no es el problema, ya que asi tampoco funciona. si podeis darme otra solucion. como lo tenia yo aunque sea deberia ver el ultimo registro

[[coso]]

hola, yo miraria si se te han grabado correctamente los datos primero. saludos

PD: tambien, comprobaria si se encuentra el fichero

Código Delphi [-]
if not fileexists('mi_agenda.txt') then showmessage('no se encuentra el fichero en la ruta especificada');