关于线程的问题,望高手指点!

procedure TFrm_Transfer.Button1Click(Sender: TObject);
var MyImportThread:TImportThread;
begin
   while not ado.eof do
      begin
          ID:=ADO.FieldByName('wzdd').value;
          Address:=ADO.FieldByName('Add').AsString;
          PCID:=ADO.FieldByName('ID').value;
          name:=trim(ADO.FieldByName('number').AsString) ;//传入线程参数
           MyImportThread:=TImportThread.Create(false);
           MyImportThread.FreeOnTerminate:=true;
         //下面想等到 MyImportThread这个线程结束以后再执行next,进行下一个线程的创建执行,该如何做?        
              
end;
我线程中需要的参数在ado对应的表中存放,由于种种限制,不可以同时执行很多线程,又不想破坏原有的程序结构,现在想实现单个单个循环执行,该如何做?