how to prevent threads from exist : i have 10 threads working together,after starting the threads 15s later all threads Exists only one thread remains, my code:

      procedure TForm1.Button2Click(Sender: TObject);
      begin
       AA;
       BB;
       CC;
       DD;
       EE;
       FF;
       GG;
       HH;
       II;
       JJ;
      end;

    procedure TForm1.AA;    //same procedure for BB,CC,DD,EE.FF,JJ,HH,II,JJ
     var
     lHTTP: TIdHTTP;   
    begin
     lHTTP := TIdHTTP.Create(nil);  
     TTask.Create(Procedure
 
     //HTTP operations  
     end).Start;
  
     end; 

