Sorry error in my sample
Type definition is in that format

Code:
    TMyParent = class 
       procedure ShowMe;virtual; 
    end; 
    
   TMyInteger = class(TMyParent) 
     Procedure ShowMe;override;
   end; 

   TMyString = class(TMyParent) 
     procedure ShowMe;override; 
   end;