...
  tempThread := Whatever();

  // Speichern der lokalen Objekte, damit man beim OnAccept oder OnError
  // auch damit arbeiten kann:
  mainThread := tempThread;
  mainClient := tempClient;
  mainRequest := tempRequest;
  mainResponse := tempResponse;

  // Warten, bis entweder der Thread von außen beendet wird (Terminated) oder
  // er selbst fertig wird (FRecieved):
  while (NOT Terminated) AND (NOT FRecieved) do
  begin
    Sleep(10);
  end;
  // Wenn hier angekommen schauen, ob er hier ankommt, weil er Daten
  // empfangen hat. Falls es durch "Terminate" von außen passiert ist
  // den Rest-Thread mit "Cancel();" abbrechen:
  if (Terminated) AND (NOT FRecieved) then mainThread.Cancel();

  // Warten, bis er den Thread ordnungsgemäß beendet hat:
  mainThread.WaitFor();

  // Jetzt sind wir hier fertig, das Programm soll beendet werden,
  // also alles wieder freigeben:
  mainClient.Free();
  mainRequest.Free();
  mainResponse.Free();
  mainThread.Free();