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
[-]
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