diff --git a/components/multithreadprocs/mtprocs.pas b/components/multithreadprocs/mtprocs.pas
index 768ed87aa..94eb3c4e0 100644
--- a/components/multithreadprocs/mtprocs.pas
+++ b/components/multithreadprocs/mtprocs.pas
@@ -341,7 +341,7 @@ var
   ok: Boolean;
   E: Exception;
 begin
-  CurrentThread:=Self;
+  MTProcs.CurrentThread:=Self;
   aPool:=Item.Group.Pool;
   ok:=false;
   try