Присвоить маску класса источника
procedure Assign(Source: TBitStore);
Маске класса присваивается маска источника