Синхронизация потоков

[kardinal94]

Всем добрый день. Возникла проблема с синхронизацией потоков. Есть определенная программа о которой я писал тут, там же можете найти и исходник+компилированный файл. Проблема заключается в синхронизации потоков. Поток у меня создается с помощью:

TNewThread = class(Tthread)
    private
    protected
    procedure Execute; override;
    public
        constructor Create(CreateSuspended:boolean);
  end;
---------------
   constructor TNewThread.Create(CreateSuspended: Boolean);
  begin
  inherited create(createSuspended);
  end;

Запускается при клике на кнопку:

TnewThread.Create(false);

, в самом потоке содержится формирование POST запросов и отправка их на сервер. При формировании запросов поток обращается к компонентам, которые относятся к основной форме программы (TMemo, Tedit, TLabel). При этом в Windows 7 начинают возникать проблемы при наведении на какой то Edit, в XP при свертывании и развертывании более двух раз, проблемы типа

Часть кода потока:

procedure TNewThread.Execute;
var udach, CapB,CapEnd, pos1, posex1, usp, neiz:integer;
POstData:TstringList;
Captcha1:TMemoryStream;
Otvet, CapUrl, stat1, cid, sid, fbi:string;
   begin
 PostData:=TstringList.Create;
{Выполняю операцию с первым сайтом в списке}
if form1.CheckListBox1.Checked[3] then
  try
      Postdata.clear;
     Form1.proc.Lines.Add(' Начинаю регистрацию на сайте '+Form1.CheckListBox1.Items.Strings[3]); // Обращение к Memo
     Otvet:=Form1.IdHTTP1.Get('http://astraclub.ru/forum/profile.php?mode=register&agreed=true');
     {Получаю каптчу}
     Form1.proc.Lines.Add(' Получаю каптчу с сайта '+Form1.CheckListBox1.Items.Strings[3]);
     Pos1:= pos('name="confirm_id" value="',otvet);
     PosEx1:= posex('/', otvet, pos1+25);
     cid:=copy(otvet,pos1+25, posex1-pos1-27);
     capurl:=('http://astraclub.ru/profile.php?mode=confirm&id='+cid);
     Captcha1:=TMemoryStream.Create;
     form1.IdHTtp1.Get(capUrl,Captcha1);
     Captcha1.Position:=0;
     Captcha1.savetoFile('1.png');
    Form1.WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'1.png');
 {Формирование запроса}
     PostData.Add('username='+form1.Login.Text); // Обращение к Edit
     PostData.Add('name_first='+form1.name.Text); // Обращение к Edit
     PoStData.Add('name_last='+form1.famil.Text); // Обращение к Edit
     PostData.Add('email='+form1.mail.Text); // Обращение к Edit
     Form1.proc.Lines.Add(' Получил каптчу, жду ввода '+Form1.CheckListBox1.Items.Strings[5]);
      while form1.Capt.Tag=0 do sleep(1000); {ожидание нажатия клавиши после ввода каптчи для отправки запроса}
     form1.Capt.Tag:=0;
  {Не относящиеся к проблеме участки кода с простым формированием POST запроса}
   OtVet:=form1.IdHTTP1.Post('http://astraclub.ru/forum/profile.php', PostData);
     if pos('Вы ввели неверный код подтверждения', otvet)<>0 then
     form1.proc.Lines.Add('ОШИБКА: Вы ввели неверный код подтверждения');
        if Pos('Учётная запись была создана', Otvet)<>0 then
         form1.proc.Lines.Add('Учётная запись была создана. . Проверьте вашу почту и подтвердите регистрацию.');
      Form1.proc.Lines.Add('-----Регистрация на сайте '+Form1.CheckListBox1.Items.Strings[3]+' завершена-----');
     except
       Form1.proc.Lines.Add('Error!');
       end;

Таким примерно образом отправляются запросы более чем на 50 сайтов. Хотелось бы понять, как правильно синхронизировать основной VCL поток и второй, создаваемый мною. Перечитал много литературы, пока понятно мало что.

[kardinal94]

Неужели никто не знает? Подскажите хотя бы как правильно использовать метод Synchronize

[bulldog5293]

КАК вызываеш?

[kardinal94]

Что вызываю? Поток?

[FaTaL]

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

Неужели никто не знает? Подскажите хотя бы как правильно использовать метод Synchronize

Создаёшь какую нить процедуру, которая обращается к основному потоку, а потом её вызываешь методом Syncronize.
Например есть процедура

procedure InfoCaption (s : string);
begin
  Form1.Caption := s;
end;

А уже в потоке вызываешь
Syncronize (InfoCaption ('Text'));

[Stilet]

Подскажите хотя бы как правильно использовать метод Synchronize

Открой Делфи, создай проект Thread. и почитай коментарии - там как раз пишут о том как правильно ее использовать.
Еще, как писал Михалыч :

Открываем имеющийся в составе Дельфи демонстрационный проект с синхронизацией потоков - Borland\Delphi7\Demos\Threads\thrdd emo.dpr...
Изучаем, особенно файл SortThds.pas

Добавлю:
http://www.realcoding.net/article/view/158