我需要把一个二进制文件读取并分析数据，现在我已经将其读取到缓冲区Buffer中，请问下一步怎么逐一获取每一个二进制byte？代码如下，谢谢！
var
  DataFile: File;
  Buffer: array[0..128] of byte;
  NumRecsRead: Integer;
  i:Integer;
begin
  dlgOpenDataFile.Title:='选择要读取的数据文件';
  dlgOpenDataFile.Filter:='(*)所有文件|*.*';
  if dlgOpenDataFile.Execute then
  begin
  AssignFile(DataFile, dlgOpenDataFile.FileName);
  Reset(DataFile);
  try
  BlockRead(DataFile, Buffer, 1, NumRecsRead);
  finally
  CloseFile(DataFile,5);
  end;
  end;