[roman]

Nda mas por poner alguna otra posibilidad:

Código Delphi [-]
type
  TBuffer = record
    Data: array[1..200] of Char;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo: file of TBuffer;
  B: TBuffer;

begin
  AssignFile(Archivo, 'archivo.dat');
  Reset(Archivo);

  while algo do
  begin

    Read(Archivo, B);

  end;

  CloseFile(Archivo);
end;

// Saludos