Erstmal ein dickes Danke an Thomas. Ich habe das ganze jetzt so gelöst :
Delphi-Quellcode:
try
SearchForCopy := TSearchCopy.Create(false);
SearchForCopy.FreeOnTerminate := False;
SearchForCopy.WaitFor;
SearchForDelete := TSearchDelete.Create(false);
SearchForDelete.FreeOnTerminate := False;
SearchForDelete.WaitFor;
finally
SearchForCopy.Free;
SearchForDelete.Free;
end;
Kann mir jetzt noch jemand erklären, warum ich die TThreads selber freigeben muss und nicht über FreeOnTerminate ?
Jetzt habe ich nur noch das Problem, das mein Statusfenster zwar geöffnet wird aber nichts anzeigt von dem was meine beiden Threads macht. Wie löse ich das jetzt noch ?