I am trying to create a thread that implements an interface. Therefore the thread object will have the definition:
TMyThread = class(TThread, IInterogate)
The common practice is to derive the class from TInterfacedObject or TComObject to handle the ref counting and querying. In this case I must however derive from TThread.