Neue Anwahl bei besetzt

[Styler]

hallo!

ich habe ein wählprogramm das sich sonntags ins inet einwählen soll. Die Anwahldaten stehen in einer Datenbank. Ist es möglich, dass wenn eine Nummer besetzt ist die nächste gleich direkt danach automatishc angewählt wird?

das ist der quellcode für die anwahlprozedur:

Delphi-Quellcode:

{Timer Anwahl}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If InTimer Then Exit;
 InTimer:=True;
 If DialStep<>0 Then Begin
  With PBar Do Begin
   If Position=Max Then Position:=0;StepBy(1);
  End;
 End;
 Case DialStep Of
  0 : Begin
       Connected:=GetStatus;
       If Connected Then Begin
        Button1.Enabled:=False;
        Button1.Caption:='trennen';
        Panel4.Caption:='Verbunden über '+DFUEName+' als '+Edit1.Text;
        StaticText3.Caption:=Edit1.Text;
        DialStep:=3;
       End;
      End;
  1 : If DFUEName<>'' Then Begin
       If DoDial(Edit1.Text,Edit2.Text,Edit3.Text) Then Begin
        Protokoll.Clear;
        DialStep:=2;
        Tick:=0;
        Button1.Enabled:=False;
        OldState:=-1;
       End ELSE DialStep:=0;
      End;
  2 : Begin
       If (OldState<>RASCS_Connected) Or (GetStatus=False) then begin
        Inc(Tick);

        If Tick=StrToInt(Edit97.Text)*2 Then Begin

         Button1.Enabled:=True;
         If RasHandle<>0 Then RasHangup(RasHandle);
         DialStep:=9;
         Protokoll.Lines.Add('Time-Out bei Verbindungsaufbau');
        End;
       End ELSE Begin
        Connected:=True;
        Button1.Enabled:=True;
        Button1.Caption:='trennen';
        Panel4.Caption:='verbunden über '+DFUEName+' als '+StaticText1.Caption;
        StaticText3.Caption:=Edit1.Text;
        DialStep:=3;
       End;
      End;
  3 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Protokoll.Lines.Add('trennen');
        DialStep:=9;
       End;
      End;
  4 : Begin
       If RasHandle<>0 Then Begin
        Protokoll.Lines.Add('trennen');
        RasHangup(RasHandle);
       End;
       DialStep:=5;
      End;
  5 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Protokoll.Lines.Add('getrennt');
        DialStep:=9;
       End;
      End;
  6 : Begin
       If RasHandle<>0 Then Begin
        Protokoll.Lines.Add('trennen');
        RasHangup(RasHandle);
       End;
       DialStep:=7;
      End;
  7 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Close;
       End;
      End;
  9 : Begin
       Panel4.Caption:='getrennt';
       Button1.Caption:='verbinden';
       Button1.Enabled:=True;
       DialStep:=0;
       PBar.Position:=0;
      End;
  98: Begin
       DialStep:=99;
       Tick:=0;
      End;
  99: Begin
       Inc(Tick);
       If Tick>5 Then Begin
        WindowState:=wsMinimized;
        DialStep:=0;
        PBar.Position:=0;
       End;
      End;
 End;

 InTimer:=False;
end;



{Verbinden-Button}
procedure TForm1.Button1Click(Sender: TObject);
begin
 If DialStep=0 Then DialStep:=1;
 If DialStep=3 Then DialStep:=4;
end;

thx im vorraus
styler :wiejetzt: