Código:
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