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