Удаление (файловой) битовой переменной

32-хdestructor Destroy;
16-тиdestructor Done;

Внимание!   Рекомендуется использование косвенного вызова деструктора, как показано в примере.

Освобождение памяти выполняется независимо от типа созданной битовой переменной. Если программа полностью завершает работу, то она автоматически освобождает всю выделенную динамическую память. Обязательно освобождайте память, если используете битовые переменные, объявленные внутри процедур.

32-х Var BitovStr: TStr_Bit; {Объявление переменной}
begin
BitovStr := TStr_Bit.Create; {Выделение памяти}
BitovStr.Free; {Освобождение памяти}
End;
16-ти

Var BitovStr: PStr_Bit; {Объявление переменной}
begin
BitovStr := New(PStr_Bit,Init(38)); {Выделение памяти}
Dispose(BitovStr,Done); {Освобождение памяти}
End;