может тебе нужно наследование ? потому что то что ты хочешь почти не применяется в ООП
Type TDrawObject
Method Draw() Abstract
EndType
Type TAssa Extends TDrawObject
Method Draw()
' special draw code
EndMethod
EndType
таким же способом если описать Draw у TDrawObject то его можно вызывать из Draw в TAssa