Threadsicher : Verwendung von Semaphoren

[DelphiManiac]

Ich habe aber leider,

eine Funktion die Ungefähr so aussieht:

Sende...
Warte... (Application.ProcessMessages)
Empfange
exit;


Das heißt in dem Hauptthread kann es jetzt passieren, dass während des Wartens die Funktion nochmals aufgerufen wird...
Ist an der Stelle kein schönes Programmdesign, aber muss das leider so behalten...