Управление циклом FOR

[Pcrepair]

Добрый день. Есть код:

var
  Main: TMain;
  gFlag:Boolean;
implementation
..............
procedure TMain.Button1Click(Sender: TObject);
(* 25.04.13 Поцедура, время работы 20...30 сек*)
procedure TotalLoader(Str:string);
begin
  gFlag:=False; 
  (*много всякого*)
  gFlag:=True;  (*в конце работы устанвливает флаг*)
end;
(*-------------------------------------------*)

var I:integer;  StrRequest,FullListOfRequest:string;
begin
if (Memo1.Lines.Count > 0) then    
  begin
  for I := 0 to Memo1.Lines.Count-1 do
    begin
      StrRequest:=Memo1.Lines[I];  
      TotalLoader(StrRequest);     (*вызов асинхронной процедуры*)
      // нужно преостановить выполнение цикла пока не отработает TotalLoader
      // и не установит gFlag:=True;
    end;
  end
  else  ShowMessage('Enter Search Request!');
end;

Вопрос: есть ли возможность(как?) управлять работой цикла, или надо как то по другому?

[BDA]

А зачем тогда TotalLoader асинхронная, если важно ждать ее исполнения?
(И вообще, есть сомнения, что она асинхронная)

[Pcrepair]

TotalLoader асинхронная - тот самый загрузчик страниц из поисковых машин, ему передаются слова запроса и оно 15....50 сек вытягивает УРЛ из 10-ка ПМ. асинхронность в том смысле что время получения результата заранее неизветсно. типа как ракета воздух-воздух: запустил и все

[Пепел Феникса]

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

TotalLoader асинхронная - тот самый загрузчик страниц из поисковых машин, ему передаются слова запроса и оно 15....50 сек вытягивает УРЛ из 10-ка ПМ. асинхронность в том смысле что время получения результата заранее неизветсно. типа как ракета воздух-воздух: запустил и все

асинхронность это когда вы запустили процедуру и код её запустивший пошел работать дальше.

[Pcrepair]

тогда тут все наоборот получается: процедура запущена и надо ждать когда она закончит свою работу.
вот только эта процедура вызывает до 10 потоков, каждый из которых подключается к своей ПМ и асинхронно передает результат в накопитель. после чего увеличивает счетчик на +1. таймер пасет счетчик и когда счетчик = 10 необходимо возобновить работу цикла, передать новое значение(строка) в TotalLoader и все по новой, пока в МЕМО не обработаны все строки

[eval]

бред какойто..
вам чего надото сделать?

[Pcrepair]

большой и жирный крекер интернета, что же еще? гыгы

[eval]

тогда считайте что он уже готов

[Pcrepair]

еще нет, но к лету будет готов