So gehts mit TEvent (syncobjs)
Delphi-Quellcode:
case lvEvent.WaitFor(1000) of
//Das Signal für das Ereignisobjekt wurde gesetzt.
wrSignaled :;
//Die im Parameter TimeOut angegebene Zeitspanne ist verstrichen, ohne dass das Signal gesetzt wurde.
wrTimeOut :;
//Das Ereignisobjekt wurde gelöscht, bevor das TimeOut-Intervall verstrichen ist.
wrAbandoned :;
//im Warten ist ein Fehler aufgetreten. Überprüfen Sie die Eigenschaft LastError. Der Fehlercode in LastError enthält nähere Informationen.
wrError :;
end;