No puedo extraer datos de una base de datos antigua

[cloayza]

Otra opción podría ser:
Coloca un TMemo en un form, agregas un boton y copias este código al evento del botón.

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}
procedure TForm1.Button1Click(Sender: TObject);
type
   TDatos=record
      Fecha:array[0..5] of AnsiChar;
      Titulo:array[0..57] of AnsiChar;
      Autor1:array[0..24] of AnsiChar;
      Autor2:array[0..24] of AnsiChar;
      Autor3:array[0..24] of AnsiChar;
      Editor:array[0..17] of AnsiChar;
      EdicionAnio:array[0..3] of AnsiChar;
      EdicionVez:array[0..1] of AnsiChar;
      Asignatura:array[0..14] of AnsiChar;
      TopoUB:array[0..2] of AnsiChar;
      TopoEst:array[0..2] of AnsiChar;
      Coleccion:array[0..19] of AnsiChar;
      Procedencia:AnsiChar;
   end;
var
  F: TFileStream;
  t:TDatos;
begin
     FillChar(t,SizeOf(t),0);

     Memo1.lines.BeginUpdate;

     F := TFileStream.Create('bibli01.fil', fmOpenRead);

     while F.Position < F.Size do
     begin
          F.Read(t, SizeOf(t));
          Memo1.Lines.Add(Format('%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|',
           [t.Fecha,t.Titulo,t.Autor1,t.Autor2,t.Autor3,t.Editor,t.EdicionAnio,t.EdicionVez,
           t.Asignatura,t.TopoUB,t.TopoEst,t.Coleccion,t.Procedencia]));
     end;

     F.Free;
     Memo1.lines.EndUpdate;
end;

Ojala te ayude en algo