1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TMyOwnThread.Execute;
var
  idhttp1:TIDhttp;
  schleife1,schleife2:integer;
  aurl:string;

//  ip,pfad,results : TStringlist;
begin

  try
  begin
  for i:= 0 to ip.Count-1 do
    for j:= 0 to pfad.Count-1 do

    ishttpsourcethere(i,j);
    results.add(inttostr(code));

    Synchronize(SyncBinFertig);                    

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:

function TMyOwnThread.isHTTPSourceThere(a,b:integer): Integer;
var
  idhttp1:TIDhttp;
  aurl:string;
begin

  //writeln(ip[i]);
  //writeln(pfad[i]);
 {  i:=0;
  j:=0;    }

  idhttp1 := Tidhttp.Create(nil);
  idhttp1.ReadTimeout:=1000;
  idhttp1.ConnectTimeout:=1000;
  AURL:='http://'+IP[a]+Pfad[b];
  with IdHTTP1 do
  begin
    try
      Response.Clear;
      HEAD(AURL);
    except
    end;
    Result := IdHTTP1.ResponseCode;
    code:= IdHTTP1.ResponseCode;
  end;
  idhttp1.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

const
  ANZAHLSTRINGLISTEN = 5

var
  sl: TStringList;
  slarray: array of TStringList;
  i: Integer;
  AnzahlItems: Integer;

begin
  sl := TStringList.Create;
  for i := 0 to 9 do
    sl.Add(Format('Eintrag %d', [i]));

  AnzahlItems := sl.Count / ANZAHLSTRINGLISTEN;
  Setlength(slarray, anzahl);

  for i := 0 to anzahl - 1 do
  begin
    slarray[i] := TStringList.Create;
    // Arrays füllen
  end;
end;