Delphi-Quellcode:
procedure TDLT.OnThreadTerminate(Sender: TObject);
begin
if ((Sender = Thread1) and Thread2.Finished) or ((Sender = Thread2) and Thread1.Finished) then
Show;
end;
Bei mehreren Threads kann man das, über eine Schleife, ganz hübsch zusammenfassen.