TBufStream

type TBufStream = class(TStream)

protected

  procedure CreateFileStream;

  function GetPosition; override;

  function GetSize; override;

  class function IsWritingMode();

  procedure SetSize64(); override;

public

  constructor Create();

  destructor Destroy; override;

  procedure Clear;

  procedure FillBuffer;

  procedure FlushBuffer;

  function Read(); override;

  function Seek(); override;

  function Write(); override;

end;

TBufStream

TObject