拨号连接成功 后会触发事件吗？应当如何捕捉该事件？

Question

给你一个不全的例子,你要怎么捕捉,用定时器么?procedure TForm1.Timer1Timer(Sender: TObject);
var    BufSize                     : Integer;
    NumEntries                  : Integer;
    X                           : Integer;
    Entries                     : Array[1..MaxEntries] of TRasConn;
    Stat                        : TRasConnStatus;
    Result_                     : Integer;
  //  S ,temp                     : String;
begin
  Entries[1].dwSize := SizeOf(TRasConn);
  Bufsize:=SizeOf(TRasConn)*MaxEntries;
  FillChar(Stat, Sizeof(TRasConnStatus), 0);
  Stat.dwSize:=Sizeof(TRasConnStatus);  Result_:=RasEnumConnections(@Entries[1], BufSize, NumEntries);
  if Result_=0 then
  begin
    if NumEntries > 0 then
   // for X:=1 to NumEntries do
   for X:=1 to 1 do
    begin
     if Stat.RasConnState=RASCS_Connected    then   ;
     if Stat.RasConnState=RASCS_Disconnected then   ;
    end;
  end ;
end;