[delphi]Исправить код потока

[just4smth]

Помогите исправить код потока, подскажите куда вставить синхронизацию, и вообще как правильнее организовать код?

PHP код:

{=============================================}
///////////////////////////////////////////////
///////////////Запускаем поток/////////////////
///////////////////////////////////////////////
{=============================================}
procedure TNewThread.Execute;
begin
  vBulletinGrab();
end;

{=============================================}
///////////////////////////////////////////////
/////////Процедура граббинга с vBulletin////////
///////////////////////////////////////////////
{=============================================}

procedure vBulletinGrab;
var
  NickGrabRegEx, LastPageGrabRegEx: TRegEx;
  LastPageNumber: Tmatch;
  Nicks: TMatchCollection;
  Page: widestring;
  i, j, CurrentPageNumber: longint;
  HTMLDec: THTMLDecode;
begin
  ///Если авторизация не используется то создаём объект TidHttp///
  if MainForm.AuthButton.Caption = 'Вход' then
    Http := TidHttp.Create(nil);

  ///Создаём объект для преобразования символов///
  HTMLDec := THTMLDecode.Create;

  ///Парсим общее количество страниц///
  ///Скачиваем страницу Page
  Page := Http.Get(MainForm.AdresEdit.Text + 'memberlist.php');
  ///Если на станице есть совпадения с регуляркой
  if LastPageGrabRegEx.IsMatch(Page,'<td class=([''""]?)vbmenu_control\1 (.+?)>(<.*>)?([Страница|\w]*\s)([\d]*\s)([из|\w]+\s)(\d*)?(<.*>)?(<.*>)',[roIgnoreCase, roMultiLine]) then
    ///то заисываем одно совпадение
    LastPageNumber := LastPageGrabRegEx.Match(Page,'<td class=([''""]?)vbmenu_control\1 (.+?)>(<.*>)?([Страница|\w]*\s)([\d]*\s)([из|\w]+\s)(\d*)?(<.*>)?(<.*>)',[roIgnoreCase, roMultiLine])
  else
    ///иначе выврдим сообщение об ошибке///
    ShowMessage('Не удалось получить количество страниц');

  ///Выводим максимальное количество страниц в статистику и прогрессбар///
  MainForm.Label5.Caption := (LastPageNumber.Groups.Item[7].Value);
  MainForm.ProgressBar1.Max := strtoint(LastPageNumber.Groups.Item[7].Value);

  ///Инициализируем переменные///
  CurrentPageNumber := 0;
  i := 1;
  j := 0;

  ///В цикле граббим ники///
  for i := 1 to strtoint(LastPageNumber.Groups.Item[7].Value) do
  begin
    Page := '';
    CurrentPageNumber := i;

    ///Скачиваем страницу Page
    Page := Http.Get(MainForm.AdresEdit.Text + 'memberlist.php?do=getall&order&page=' + inttostr(i));
    ///Если на станице есть совпадения с регуляркой
    if NickGrabRegEx.IsMatch(Page,'<a href="member.php\?([u|s])(.*?)">(<.*>)?(.+?)(</.*>)?(</.*>)',[roIgnoreCase, roMultiLine]) then
      ///то заисываем все совпадения
      Nicks := NickGrabRegEx.Matches(Page,'<a href="member.php\?([u|s])(.*?)">(<.*>)?(.+?)(</.*>)?(</.*>)',[roIgnoreCase, roMultiLine])
    else
      ///иначе выврдим сообщение об ошибке///
      ShowMessage('Не удалось получить страницу №' + inttostr(i));

    ///Записываем найденные ники в NicksMemo///
    for j := 0 to Nicks.Count - 1 do
      MainForm.NicksMemo.Lines.Add(HTMLDec.Convert(Nicks[j].Groups.Item[4].Value));

    ///Записываем дааные в статистику///
    MainForm.Label7.Caption := inttostr(CurrentPageNumber);
    MainForm.Label9.Caption := inttostr(strtoint(LastPageNumber.Groups.Item[7].Value) - CurrentPageNumber);
    MainForm.Label11.Caption := inttostr(MainForm.NicksMemo.Lines.Count);
    MainForm.ProgressBar1.Position := CurrentPageNumber;

    ///Ждём перед загрузкой следующей страницы///
    //sleep(100);
  end;
  HTMLDec.Free;

  ///Активируем кнопки и поля после завершения граббинга///
  MainForm.StartButton.Caption := 'Старт';
  MainForm.StartButton.Enabled := true;
  MainForm.StopButton.Enabled := false;
  MainForm.ComboBox1.Enabled := true;
  MainForm.AuthCheckBox.Enabled := true;
  MainForm.AdresEdit.Enabled := true;
  MainForm.LoginEdit.Enabled := true;
  MainForm.PasswordEdit.Enabled := true;
end; 


[QunneD]

Если исходники предоставляете, то предоставляйте полностью, а то лично мне не особо понятно чо да как и в чем проблема?

А так, если дело дошло до потоков, то можно использовать WinAPI CreateThread, вроде проще и коварнее.

[just4smth]

Если исходники предоставляете, то предоставляйте полностью, а то лично мне не особо понятно чо да как и в чем проблема?

Много букав получится

А так, если дело дошло до потоков, то можно использовать WinAPI CreateThread, вроде проще и коварнее.

Раздел - Помощь студентам.
Не все студенты знают апи.

Например запись результатов граббинга в мемо выполняется во втором потоке (без синхронизации):

PHP код:

///Записываем найденные ники в NicksMemo/// 
    for j := 0 to Nicks.Count - 1 do 
      MainForm.NicksMemo.Lines.Add(HTMLDec.Convert(Nicks[j].Groups.Item[4].Value));