ok_link_explicite_name
type TTestingClass = class(TObject)
I'm a testing class, oh ! And don't forget to look at my method !
procedure MyMethod;