delphi 将Query的结果与字符串一条条按顺序组合插入新表

var
   i:integer; 

  //......
  qry1.First;
  i:=0;
  
 while not qry1.Eof do
 begin
     qry2.Close;
     qry2.Sql.Clear;
     qry2.Sql.Text:='insert into Table1 values (:BM,:JE) ';

     st:=TstringList.Create;
     st.Add('1003');
     st.Add('1004');
     st.Add('1005');
     qry2.ParamByName('BM').AsString:=st.Strings[i];
     st.Free;

     qry2.ParamByName('JE').AsFloat:=qry1.FieldByName('xsje').AsFloat;

     qry2.ExecSql;
     qry1.Next;
      i:=i+1;
  end;

//注意：这里qry1的结果是需要固定排序的 :D