Mit einem passendem Taskmanager (ProcessExplorer?) sieht man die ThreadID und kann dann im Delphi nachsehn wer das ist.
Oder man hält einfach mal nacheinander einen/mehrere der Threads an und wenn die CPU nicht mehr ausgelastet ist, dann hat man den Verursacher (vermutlich) gefunden.