Есть у меня к примеру тип
Type TWeapon
Field ID:Int
Field Name:String
Method Shot()
......................
End Method
Function Create:TWeapon(xId:Int,xName:String)
self.ID=xID
self.Name=xName
End Function
End Type
................................................
Local Blaster:TWeapon=TWeapon.Create(1,"Бластер")
Так вот мне нужно сделать точную копию Blaster причем со всеми функциями и методами. Причем когда я тока сделал копию все данные будут равын к примеру я сделал копию бластера и назвал ее Blaster2 тоесть у Blaster2.ID=1 и Blaster2.Name="Бластер"
И если я гдето в коде захочу поменять у Blaster2 к примеру ID на 2, то у Blaster ID должен остатся равным 1.
Подскажите как такое сделать.