delphi - 匿名スレッド内で複数の投稿リクエストを呼び出す方法

Question

複数の投稿リクエストを同時に実行する方法。このコード サンプルは 1 つの匿名スレッドのみを表しており、合計 15 です。ただし、1 つのスレッドでも、投稿応答は時間とともに遅くなり、最初は速く開始し、その後遅くなります。それがほとんど止まるまで!、私は何が悪いのか理解できませんでした.これはこれを解決する私の9回目の試みです. ネット クライアント TTask を試しましたが、バグがあります。何かアイデアはありますか? 私はコードを意味します、ありがとう。

procedure TForm1.Test99;
var
 lHTTP: TIdHTTP;
 Params,Reply: TStringList;
begin
  lHTTP := TIdHTTP.Create(nil);
  Params := TStringList.Create;
  Reply  := TStringList.Create;

 TThread.CreateAnonymousThread(procedure ()
 var
  i : integer;
 begin
   for i := 0 to Z.Count-1 do
 begin
   Params.Add('Id=' +Z.Strings[i]);
   try
     Reply.Text := lHTTP.Post('https://www.mxhs95.com/test', Params);
     if AnsiContainsStr(Reply.Text, 'id')
     then
     begin
      TThread.Synchronize (TThread.CurrentThread,
      procedure ()
              begin
                Memo1.Lines.Add( Z.Strings[i]);
                Label2.Caption := Memo1.Lines.Count.ToString;
              end);             
     end;  
 end;
 Finally

  end;

end;
end).Start;
end;