Programm beendet bei Windows Restart nicht

[NormanNG]

Hi,

Delphi-Quellcode:

procedure Tfmain.FormDestroy(Sender: TObject);
begin
  DeleteThread.Terminate;
  try
    DeleteThread.WaitFor;
  except
  end;
  DeleteThread.Free;
  Lock_Draw.Free;
  Lock_Query.Free;
  Lock_ClientCheck.Free;
  Lock_UpdateList.Free;
  Lock_NameCheck.Free;
end;

Das liegt sicher daran, das DeleteThread nicht beendet. Kommentier mal den Thread aus. Wenns dann beendet, dann wars der Thread...