Delphi-PRAXiS - Delphi Problem mit Indy???

Hallo...

ich habe ein Problem mit meinem kleinen Programm... :wall: Und zwar bleibt es dauert hängen bzw. reagiert nicht mehr. Es läuft zwar dann nach zwei Minuten weiter, bleibt allerdings erneut hängen. Ich habs mit einer Pause probiert usw, funkt aber nicht wirklich.

Was ist das für ein Programm? Ich möchte damit mit verschiedenen Proxys auf ein Script zugreifen... gleichzeitig oder der Reihe nach, ich habs halt nur der Reihe nach zusammengebracht (und das auch nicht richtig).. :?

Hier mein kleines Programm: Ich hoffe es kann mir jmd helfen

Delphi-Quellcode:

			unit InternetZugriff;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,

  IdTCPClient, IdHTTP, IEHTTP3, CoolTrayIcon, DB, ADODB;

type

  TForm1 = class(TForm)

    Internet: TIdHTTP;

    Button1: TButton;

    Edit1: TEdit;

    Memo1: TMemo;

    Edit2: TEdit;

    local: TIEHTTP;

    Table: TADOTable;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure Delay(dwMilliseconds: Longint); 

var 

  iStart, iStop: DWORD; 

begin 

  iStart := GetTickCount; 

  repeat 

    iStop := GetTickCount; 

    Application.ProcessMessages;

  until (iStop - iStart) >= dwMilliseconds; 

end;

procedure TForm1.Button1Click(Sender: TObject);

  var Proxy: String;

  var Port: Integer;

  var anzahl: Integer;

  var i: Integer;

begin

  table.open;

  table.First;

  anzahl := table.RecordCount;

  for i:=1 to anzahl do begin

    Edit2.Text := table.FieldbyName('ProxyIp').AsString;

    Internet.ProxyParams.ProxyServer := table.FieldbyName('ProxyIP').AsString;

    Internet.ProxyParams.ProxyPort := table.FieldbyName('ProxyPort').AsInteger;

    Try

      Memo1.Text := Internet.Get(Edit1.Text);

      Delay(250);

      Internet.Disconnect;

    Except

    End;

    table.Next;

  End;

end;

end.

Ich danke schon jetzt für eure Hilfe

Thomas