TestBufferedFileStream

procedure TestBufferedFileStream(const sFileName: String; 
                                 const iBufferSize: Integer);
var
  fs: TBufferedFileStream;
  sr: TStreamReader;
  sw: TStopwatch;
  st: String;
begin
  sw := TStopwatch.StartNew;
  fs := TBufferedFileStream.Create(sFileName, fmOpenRead, iBufferSize);
  try
    sr := TStreamReader.Create(fs);
    try
      while not sr.EndOfStream do
        st := sr.ReadLine;
    finally
      sr.Free
    end;
  finally
    fs.Free;
  end;
  sw.Stop;
  WriteLn(st.Chars[0], ' ', sw.Elapsed.ToString);
end;