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;
Bookmarks