Прокси-чекер и многопоточность

[Roman324]

Доброго времени суток. Пытаюсь разобраться с потоками. Для примера хочу реализовать прокси-чекер в потоках. Код есть, и он работает. Только потоки останавливаются на пол пути. И в чём дело понять не могу. Надеюсь на вашу помощь.

Код потока:

unit Unit2;

interface

uses
  Classes, idHTTP, SysUtils;

type
  TPotok = class(TThread)
  private
    Index:integer;
  protected
    HTTP:TidHTTP;
    line, ip, port:string;
    n: word;

    procedure good;
    procedure parsproxy;
    procedure GetIndex;
    procedure bad;
    procedure Execute; override;
  end;

implementation
uses Unit1;

procedure TPotok.bad;
begin
 form1.Memo1.Lines.Delete(Index);
end;

procedure TPotok.GetIndex;
begin
  if Form1.index<=Form1.MaxIndex then
  begin
    Index:=Form1.Index;
    Inc(Form1.Index);
  end else
    Index:=-1;
end;

procedure TPotok.parsproxy;
begin
  Form1.Memo2.Lines.Add(ip);
  Form1.Memo2.Lines.Add(port);
end;

procedure TPotok.good;
begin
  Form1.Memo2.Lines.Add(ip+':'+port);
  form1.Memo1.Lines.Delete(Index);
end;


procedure TPotok.Execute;
var i:integer;
    TryCount:integer;
begin
HTTP:=TidHTTP.Create(nil);
HTTP.ConnectTimeout:=5000;
try

while not Terminated do
begin
if Form1.Memo1.Lines.Count>0 then
begin
 synchronize(GetIndex);
  if Index=-1 then Break;

        line:=Form1.Memo1.Lines[Index];
        n:= pos(':',line);
        ip:=copy(line,1,n-1);
        port:=copy(line,n+1, n-1);

        HTTP.ProxyParams.ProxyServer:=ip;
        HTTP.ProxyParams.ProxyPort:=strtoint(port);

         try
          HTTP.Get('http://ya.ru');
          synchronize(good);
         except
          synchronize(bad);
         end;
end;
end;

finally
  HTTP.Free;
end;

end;






end.

Вызываю так:

...
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private

  public
   Index,MaxIndex,Threads:integer;
  end;

...


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  Thread:TPotok;
begin
  MaxIndex:=25555;
  Index:=0;
  Threads:=110;

  for i:=1 to Threads do
  begin
    Thread:=TPotok.Create(true);
    Thread.FreeOnTerminate:=true;
    Thread.Resume;
end;

end;

[Slym]

узнаю свой код... в чем собственно проблема?

[Roman324]

Сообщение от Slym

узнаю свой код... в чем собственно проблема?

Каретка курсора доходит до конца Мемо и всё останавливается.

Исходник:
https://dl.dropbox.com/u/48357141/test.rar

[Slym]

1
procedure TPotok.bad;
begin
form1.Memo1.Lines.Delete(Index);
end;
2
procedure TPotok.good;
begin
Form1.Memo2.Lines.Add(ip+':'+port);
form1.Memo1.Lines.Delete(Index);
end;

3
if Form1.Memo1.Lines.Count>0 then
нельзя так... сам подумай почему


как то весь код мой испортили

[Roman324]

Сообщение от Slym

1
procedure TPotok.bad;
begin
form1.Memo1.Lines.Delete(Index);
end;
2
procedure TPotok.good;
begin
Form1.Memo2.Lines.Add(ip+':'+port);
form1.Memo1.Lines.Delete(Index);
end;

3
if Form1.Memo1.Lines.Count>0 then
нельзя так... сам подумай почему


как то весь код мой испортили

3-го уже нету. Я немного старый проэкт скинул. Забыл сохранить.

На счёт удаления строк. Пробовал не удалять их, результат тот же.

[Roman324]

Что странно, так это то, что в отладчике оно чекает до конца.

[Roman324]

Никто так и не подскажет как решить мою проблему?