Internet-Verbindung als Event abfangen und anzeigen

[mumu]

tja ich kriegs halt einfach nicht... habs heut jetzt den ganzen tag probiert, weiß nicht was ich da falsch mach WaitForMultipleObjects hab ich auch schon auf INFINITE gesetzt bzw. in eine Schleife gepackt, aber nix... habs auch schon mit waitforsingleobject gemacht:

Delphi-Quellcode:

var
    Event: THandle;
begin
  Event := CreateEvent(nil,False,False,'RASStatusNotificationObject1');
  RasConnectionNotification(INVALID_HANDLE_VALUE, Event, RASCN_Connection);
  waitret := waitforsingleobject(event, INFINITE);
  showmessage(inttostr(waitret));

wär echt spitze wenn mir jemand nochmal helfen würd

danke