
Только из-за того, что очень сложно было, почему-то, использовать inherited Init
procedure THIMainForm._onDestroy(Obj:PObj);
begin
Control := nil;
end;
Просто выкини эту ф-ю, вместе с описанием в определении класса.
За ненадобностью - таковая есть у предка