Unittest von OnWhatever Events?

[Mavarik]

Hallo Zusammen!

Wie mache ich ein Unittest von einem OnWhatever Event?
Beispiel:

Delphi-Quellcode:

procedure TestIUDFDatenbank.TestInit;
var
  ClientGUID: TGUID;
begin
  // TODO: Methodenaufrufparameter einrichten
  FIUDFDatenbank.Init(ClientGUID); // Wenn der InitThread fertig ist wird ein Event OnInitDone aufgerufen
  // TODO: Methodenergebnisse prüfen
end;

Wie bringe ich das hier unter, dass ich:
1. Testen kann ob innerhalb von 10 Sekunden der OnInitDone aufgerufen wurde
2. Oder der OnInitFailure

Mavarik