if not VarIsNull(FEventResult1) then
    begin
      MSServisPK.ADQuery1.Connection := MSServisPK.ADConnection1; // Вот тут и сл. 3 строчки.
      MSServisPK.ADQuery1.Transaction := MSServisPK.ADTransaction1;
      MSServisPK.ADQuery1.Transaction.StartTransaction;
        try
          MSServisPK.ADQuery1.Close;
          MSServisPK.ADQuery1.SQL.Text := 'Insert into process (Caption, Status, Date_Time, ProcessId, ExecutablePath)'
                                      +' values (:pCaption, :pStatus, :pDate_Time, :pProcessId, :pExecutablePath);';
          MSServisPK.ADQuery1.Prepare;
          MSServisPK.ADQuery1.ParamByName('pCaption').AsString := FEventResult1.TargetInstance.Caption;
          MSServisPK.ADQuery1.ParamByName('pStatus').AsString := 'Çàïóñê';
          MSServisPK.ADQuery1.ParamByName('pDate_Time').AsDateTime := Now;
          MSServisPK.ADQuery1.ParamByName('pProcessId').AsString := FEventResult1.TargetInstance.ProcessId;
          MSServisPK.ADQuery1.ParamByName('pExecutablePath').AsString := FEventResult1.TargetInstance.ExecutablePath;
          MSServisPK.ADQuery1.ExecSQL;
          MSServisPK.ADQuery1.Transaction.Commit;
        except
          MSServisPK.ADQuery1.Transaction.Rollback;
        end;
    end;
    FEventResult1 :=Unassigned;

procedure TNewThread1.Execute;
begin
  Synchronize(Ins1);
end;

procedure TNewThread2.Execute;
begin
  Synchronize(Ins2);
end;

procedure TNewThread2.Ins2;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
  wbemErrTimedout     = $80043001;
var
  FSWbemLocator2 : OLEVariant;
  FWMIService2   : OLEVariant;
  FWbemObjectSet2: OLEVariant;
  FEventResult2  : OLEVariant;
begin
//CoInitialize(nil);
  FSWbemLocator2  := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService2    := FSWbemLocator2.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet2 := FWMIService2.ExecNotificationQuery('Select * from __InstanceDeletionEvent Within 1 Where TargetInstance ISA "Win32_Process"');

  while not false do
  begin
    try
     FEventResult2  := FWbemObjectSet2.NextEvent();
    except
     on E:EOleException do
     if EOleException(E).ErrorCode=HRESULT(wbemErrTimedout) then
        FEventResult2 :=Null;
     else
     raise;
    end;

    if not VarIsNull(FEventResult2) then
    begin
      MSServisPK.ADQuery2.Connection := MSServisPK.ADConnection1;
      MSServisPK.ADQuery2.Transaction := MSServisPK.ADTransaction1;
      MSServisPK.ADQuery2.Transaction.StartTransaction;
        try
          MSServisPK.ADQuery2.Close;
          MSServisPK.ADQuery2.Connection := MSServisPK.ADConnection1;
          MSServisPK.ADQuery2.Transaction := MSServisPK.ADTransaction1;
          MSServisPK.ADQuery2.SQL.Text := 'Insert into process (Caption, Status, Date_Time, ProcessId, ExecutablePath)'
                                      +' values (:pCaption, :pStatus, :pDate_Time, :pProcessId, :pExecutablePath);';
          MSServisPK.ADQuery2.prepare;
          MSServisPK.ADQuery2.ParamByName('pCaption').Value := FEventResult2.TargetInstance.Caption;
          MSServisPK.ADQuery2.ParamByName('pStatus').Value := 'Çàêðûòèå';
          MSServisPK.ADQuery2.ParamByName('pDate_Time').AsDateTime := Now;
          MSServisPK.ADQuery2.ParamByName('pProcessId').Value := FEventResult2.TargetInstance.ProcessId;
          MSServisPK.ADQuery2.ParamByName('pExecutablePath').Value := FEventResult2.TargetInstance.ExecutablePath;
          MSServisPK.ADQuery2.ExecSQL;
          MSServisPK.ADQuery2.Transaction.Commit;
        except
          MSServisPK.ADQuery2.Transaction.Rollback;
        end;
    end;
    FEventResult2 :=Unassigned;
  end;
//  CoUninitialize;
end;