Prüfen ob ein TEvent gesetzt ist?

[jensw_2000]

Kann man eigentlich irgendwie sinnvoll prüfen in welchen Status sich eine TEvent Instanz befindet?
Also... ob ich es mit myEvent.SetEvent gesetzt bzw. myEvent.ResetEvent zurückgesetzt habe?

Klar geht die Krücke über WaitFor(<Single>,<Multiple>)Object(s) mit einem sehr kurzem Timeout, aber die Lösung ist sehr unschön.
Im MSDN habe ich nichts passendes gefunden.

Was ich gern hätte wäre etwas in der Art:

Delphi-Quellcode:

function istEventGesetzt(aEvent:TEvent):boolean;
begin
  if not assigned(aEvent) then exit(false);
  result := < keine Idee wie man den Status ohne zusätzliches WaitFor ermitteln kann ... >
end;

Hat jemand eine Idee?

Grüße
Jens