if Assigned(rtnZapisObjMatThr) then
    begin
{$IFDEF DEBUG}
     WriteLn ('Ukoncuji sluzbu RTN Zapis objednavky materialu do ExpPr...');
{$ENDIF}
     datMod.LogInfo (Quick.Logger.etInfo, 'Ukoncuji sluzbu RTN Zapis objednavky materialu do ExpPr...');
     try
       rtnZapisObjMatThr.ThreadTerminate;
       FreeAndNil(rtnZapisObjMatThr);
      except on E:Exception do
// add event in eventlog with reason why the service couldn't stop
       LogMessage('Cannot stop service: ' + E.Message, EVENTLOG_ERROR_TYPE, 0, 1);
     end;
     datMod.LogInfo (Quick.Logger.etInfo, '  OK');
{$IFDEF DEBUG}
     WriteLn ('  OK');
{$ENDIF}
    end;