Added classEventedThread.pas