Function TrueCopy(BoolMatrix: TBoolMatrix): TBoolMatrix;
Var
    I, J: Integer;
Begin
    SetLength(Result, Length(BoolMatrix), Length(BoolMatrix[0]));
    For I := Low(BoolMatrix) to High(BoolMatrix) do
        For J := Low(BoolMatrix[I]) to High(BoolMatrix[I]) do
            Begin
              Result[I][J] := BoolMatrix[I][J];
            End;
End;