Welches Form des wechselseitigen Auschlusses(Semaphore)?!

[DelphiManiac]

Hallo,

ich habe eine Methode meines Objekts, die intern Application.ProcessMessages aufruft,

ich will aber nicht, dass in die Methode nocheinmal "reingesprungen" wird, solange sie noch aktiv ist.
Meine Frage ist nun, welche Synchronisationsmethoden (viell. eine Semaphore?) ist da sinnvoll?
Oder kann man hier eine TCriticalsection nutzen?

so sieht meine Methode grob aus:

Delphi-Quellcode:

begin
  //--------> Hier SyncEintritt
  MachEtwasHier;
  MachEtwasDort;
  while (...) do 
  begin
    MachHierWasSpektakulaeres;
    Application.ProcessMessages;
  end;
  //--------> Hier SyncAustritt  
end;

Danke schonmal für eure Anregungen
P.S.: Habe das Script von Luckie habe ich gelesen