das programm besteht im groben aus 4 klassen

-applikation
-komponente mit
main-klasse
klasse die von thread erbt und übersetzungsroutninen beinhaltet (posix konforme zu VCL daten)
klasse die den socket steuert ( besitzt eine readsocket methode die von der execute der threadklasse permanent ausgefühjrt wird)
die main der komponente hat eine winproc methode mit der ich mittelst postmessage die daten aus dem socketthread auf den applicationthread synchronisiere. (ich weis das es da andere möglichkeiten gäbe !!! vielleicht liegt es auch daran)

ich kann über den socket zum server eine verbindung mit einme weiteren rechner aufnehmen (tunnelung mittels eigens entwickelter befehlsstruktur).
wenn ich jetzt im onclose den befehl zum trennen der verbindung aufrufe kehrt dieser nach dem senden zurück aber das formular wird nicht geschlossen (cAction wurde auf cafree gesetzt)
baue ich jetzt eine 5sekunden sleep nach dem closebefehl ein schliesst sich das fenster, habe ich keine weitere verbindung aufgebaut schliesst sich das fenster auch...

leiderleider keine quelltexte, aber ich bin echt verzweifelt... vielleicht hab ich ja was grundlegendes übersehen

mfg

Ich habs damit gelöst, dass ich in den Threads WinAPI-Events verwende um dem Thread mitzuteilen, dass er beendet werden soll. Im MainForm einfach mit WaitForSingleObject() auf die Rückkehr warten, Thread::Terminate() aufrufen und ein Sleep(100) dahinter. Seitdem habe ich keine Probleme mehr mit den Threads.

__fastcall TFormMain::TFormMain(TComponent* Owner)
	: TForm(Owner)
{
	Controller = new TControllerThread(true);  // der Thread
	hEventGlobalTerminationRequest = Controller->GetGlobalTerminationRequestHandle(); // Event mit dem dem Thread mitgeteilt wird, das er sich beenden soll
	hControllerEventReadyForTermination = Controller->GetReadyForTerminationHandle(); // Event mit dem der Thread mitteilt, dass er bereit zum terminieren ist (nach durchlaufen des Clean-Up-Codes)

	while (Controller->Suspended)
		Controller->Resume();
}

__fastcall TFormMain::~TFormMain()
{
	SetEvent(hEventGlobalTerminationRequest);	// Beendigung des Threads einleiten
	WaitForSingleObject(hControllerEventReadyForTermination, INFINITE);
	Controller->Terminate();
	Sleep(100);
	Controller->WaitFor();
	delete Controller;
}

Im Thread werden die beiden Events erzeugt und natürlich muß im Thread auch, mittels WaitForSingleObject(), geprüft werden, ob das Event ausgelöst wurde.