Работа с битовым массивом

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TByteArray = class
  private
    FFile : file;
    function GetCount: Integer;
    function GetItem(const N: Integer): Byte;
    procedure SetCount(const Value: Integer);
    procedure SetItem(const N: Integer; const Value: Byte);
  public
    constructor Create(const FileName: string);
    destructor Destroy; override;
 
    property Count: Integer read GetCount write SetCount;
    property Items[const N:Integer] : Byte read GetItem write SetItem; default;
  end;
 
{ TByteArray }
 
constructor TByteArray.Create(const FileName: string);
begin
  inherited Create;
  AssignFile(FFile, FileName);
  try
    Reset(FFile, 1);
  except
    Rewrite(FFile, 1);
  end;
end;
 
destructor TByteArray.Destroy;
begin
  CloseFile(FFile);
  inherited;
end;
 
function TByteArray.GetCount: Integer;
begin
  Result := FileSize(FFile);
end;
 
function TByteArray.GetItem(const N: Integer): Byte;
begin
  Seek(FFile, N);
  BlockRead(FFile, Result, 1);
end;
 
procedure TByteArray.SetCount(const Value: Integer);
begin
  Seek(FFile, Value);
  Truncate(FFile);
end;
 
procedure TByteArray.SetItem(const N: Integer; const Value: Byte);
begin
  Seek(FFile, N);
  BlockWrite(FFile, Value, 1);
end;
 
var
  a: TByteArray;
  i: Integer;
begin
 
  a := TByteArray.Create('Test.Bin');
 
  a.Count := 10;
  for i:=0 to a.Count-1 do
    a[i] := i;
 
  for i:=0 to a.Count-1 do
    Writeln(a[i]);
 
 
 
  a.Free;
  Readln;
 
end.