std::mutex mtx;
//////////////////////////////////////////////////////////////////////////////////////
 class TCppTask : public TCppInterfacedObject<TProc>
  {
  public:
  TBuffer CCMResult;

  int ii;  

  TCppTask(TBuffer CCMResult )
  {
	ii = CCMResult.Rpm ;
  }
  void __fastcall Invoke()
	{
		mtx.lock();
		String s=  IntToStr(ii);
		FormMain->Label_RPM->Caption =  s ;	
тут вывод картинки

       //        Sleep(1000); // это лишнее
       //  vmesto sleep podstavljaem mnogestvo parametrov neobhodimich dlja pokaza
	// parametrov och mnogo odin iz nich 7000 tochek na TChart.
	}
		mtx.unlock();
};
//////////////////////////////////////////////////////////////////////////////////////////
 TFormMain::TimerRequestTimer(TObject *Sender)
    if (ccm->GetResult((TBufferCast *)&Result)>0)
	{
		mtx.lock();
           ...zapis dannich 
		mtx.unlock();
        _di_ITask task = TTask::Create(_di_TProc(new TCppTask(Result))); 
           task->Start();//zdes po idee idet pokaz v otdelnom taske
         
           ... rascheti dannich     

   if (Reactivate) { TimerRequest->Enabled = true;..//timer krutitsja poka ne ostanovjat 
          }

////////////////////////////////////////////////////////////////////////////////////////

if(!mtx.try_lock()) {
   ... еще работает 
   return;
}
...
mtx.unlock();

if (task->Status == TTaskStatus::Completed) 

class TFormMain {
_di_ITask task = NULL;
 ...
}

 TFormMain::TimerRequestTimer(TObject *Sender)
if (task == NULL || task->Status == TTaskStatus::Completed) {
  ... таск не запускался или завершился
  ... 
         task = TTask::Create(_di_TProc(new TCppTask(Result))); 
         task->Start();//zdes po idee idet pokaz v otdelnom taske
}