while fShouldStopp do
      begin
        fStoppEvent.SetEvent; // Hier wird das Event gesetzt!!
        //fWoBinIch:=6;
        Sleep(1);
        if Self.Terminated then break;
        if Application.terminated then break;
      end;
    end;
     fStoppEvent.ResetEvent; // Hier wird das Event wieder zurückgesetzt

*******************************************************************************
  Prozedur zum stoppen des Hintergrund Tasks
*******************************************************************************)
procedure TfrmMain.StoppBackgroundTask;
begin
  if Assigned(aCyclicDataThread) then
  begin
    aCyclicDataThread.PleaseStopp;
    WaitForSingleObject(aCyclicDataThread.fStoppEvent.Handle,INFINITE); // Warten auf das Event
  end; // of if Assigned(aCyclicDataThread) then
end;// of procedure TFrmMain.StoppBackgroundTask;
////////////////////////////////////////////////////////////////////////////////

procedure TCyclicData.PleaseStopp;
begin
  fSyncObj.Acquire;
  try
    fShouldStopp:=true;
  finally
    fSyncObj.Release;
  end;

end;