Многопоточность!

anonops · 16.04.2012, 21:43

Хотел создать чекер для сервиса origin.com с горем пополам справился, сделал дополнительный поток, а многопоточность не получается.

Сам код:

Код:

TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  S:string;
  Acc:TstringList;
  i:Integer;
  implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TNewThread.Create(false);
end;

procedure TNewThread.Execute;
var
Data:TStringList;
begin
for i:=0 to Acc.Count-1 do
begin
Data:=TstringList.Create;
Data.Add('email='+Acc[i]);
Data.Add('optin=');
S:=form1.IdHTTP1.Post('https://www.ea.com/ru/profile/register', Data);
if pos('<div class="remember"><input type="checkbox" name="rememberme"', S)<>0 then
form1.Memo1.Lines.Add(Acc[i]);
end;
end;

Прошу помощи!