Wie kann man das Ausführen der Threads Priorisieren

[Sir Rufo]

Das mit dem Event kann man auch umdrehen.

Wenn der Sende-Thread lesen möchte, dann wird der Event zurückgesetzt und alle Empfangs-Threads werden durch den Event aufgehalten und können erst mal nicht mehr schreiben.
Ist der Sende-Thread fertig mit lesen, dann setzt der wieder den Event und alle schreiben wieder lustig in die Liste.

Dazu muss der Event wie folgt initialisiert werden:

Delphi-Quellcode:

TEvent.Create(
  nil,
  True, {ManualReset}
  True, {InitialState}
  '' );