Положить семантику во временный объект с помощью заданного экземпляра структуры объекта
procedure PutSemanticByMOS(p: PTempObject; MOS: TMapObjectStructure);