Super.Super not valid

You could as well just do TDialog(self).blabla

instead of using some strange stuff, if you know to which base class you actually wanted to jump anyway :)