многопоточность

[losbl9]

всем привет!
программа при выполнении одного потока работает нормально, но стоит только добавить еще один все перестает выдает ошибку.

Безымянный.jpg

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, syncobjs;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Memo2: TMemo;
    IdHTTP1: TIdHTTP;
    Edit2: TEdit;
    //procedure aut(poz:integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 potok = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  kollin:integer;
  p:potok;
  work:boolean;
  cs:tcriticalsection;
  Page,log,pas:string;

implementation

{$R *.dfm}

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

procedure potok.execute;
var cur,k,i:integer;
  q:string;
begin
  form1.IdHTTP1.Create;
  form1.IdHTTP1.AllowCookies:=true;
  form1.IdHTTP1.HandleRedirects:=true;
  cur:=0;
while work do
begin
  cs:=tcriticalsection.Create;
  if cur<form1.Memo1.Lines.count then
    k:=cur
  else
    work:=false;
  inc(cur);
  cs.Leave ;
  if work then
  begin
    log:='';
    pas:='';
    q:='';
    q:=form1.memo1.Lines[k];
    i:=pos(':',q);
    log:=copy(q,0,i-1);
    pas:=(copy(q,i+1,length(q)));

    try
      Page:=form1.IdHTTP1.Get('url'+log+'&pass='+pas);
    except
    end;
    if Pos('logout', Page)<>0 then
      form1.memo2.Lines.Add('Авторизация удалась')
    else
      form1.memo2.Lines.Add('Авторизация не удалась');
  end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
work:=true;
for i:=0 to 5 do
p:=potok.Create(false);
end;

end.

помогити пожалуйта

[Аватар]

Ознакомтесь с методом Synchronize потока, для чего он нужен и как его использовать

[losbl9]

Сообщение от Аватар

Ознакомтесь с методом Synchronize потока, для чего он нужен и как его использовать

спасибо за помощь, все понял, работает