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:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
 Doscommand1.CommandLine := 'netstat -n';
 DosCommand1.Execute;
  For i:=1 To ip_listbox.Items.Count -1 DO
   Begin
    ipstring:=ip_listbox.Items.Strings[i];
    If pos('4000', ipstring) <> 0 then
     Begin
      ip1:=pos('213.248.106.', ipstring);
      ip2:=pos(':4000', ipstring);
      ip:= ( copy (ipstring,ip1+12,ip2-ip1-12));
     End; // of IF Then
    end;   // for to do
  If ip1=0  Then
  Begin
   ip_edit.Text:='Spiel öffnen!';
   timer3.Enabled:=false;
   sek:=0;
   min:=0;
   std:=0;
   zeit_edit.Text:='00:00:00';
  end // of **ip1** if
   ELse
    Begin
     ip_edit.Text:='ServerIP: '+ ip;
     timer3.Enabled:=true;
    end;  // of else
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Doscommand1.OutputLines := ip_listbox.Items;
 u:=1;
 sek:=0;
 min:=0;
 std:=0;
   webstring:=IdHTTP1.Get('***********************'); //website fürs Delphiforum rausgenommen
   u:=u+1;
   hotposi := pos('active', webstring);
   If hotposi = 0 Then
    Begin
     hotIP_edit.text := 'Keine HOT IP ';

    end
     Else
      Begin
       hotposi1:=hotposi+23;
       hotposi2:=hotposi+26;
       teilstring:= copy(webstring,hotposi + 23, (hotposi2 - hotposi1));
       If TryStrTOint(teilstring, zahlstring) = true Then
       hotip_edit.Text:= 'WARM IP: '+ teilstring;
      end;
end;