[Casimiro Noteví]

¿Algo parecido a lo siguiente te vale?

 if loquesea
 begin
   inherited;
   ... otras cosas;
 end
 else
 begin
   ... otras cosas;
 end;