1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:

 
{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;