INSERT INVMB SELECT ...

    With qryTemp Do
    Begin
      mSQL := ' SELECT * FROM $$INVMB WHERE MB001='+QuotedStr(xMB001);
      Close;
      SQL.Clear;
      SQL.Add(mSQL);
      TransSqlCommand('qryTemp');
      Open;
      If Not Eof Then
      Begin
        SetLength(FINVMB, FieldCount);

        For mI := 0 To FieldCount - 1 Do
        Begin
          If Fields[mI].DataType = ftString Then
            FINVMB[mI] := Fields[mI].ASSTRING
          Else If Fields[mI].DataType = ftFloat Then
            FINVMB[mI] := Fields[mI].AsFloat;
             
        End;
      
      End;

    End;

    //INSERT INVMB
    mSQL := ' INSERT '+xDbname+'.dbo.INVMB SELECT ';
    For mI := 0 To qryTemp.FieldCount - 1 Do
    Begin
      If mI = 0 Then
        mSQL := mSQL + QuotedStr(FINVMB[mI])
      Else
        mSQL := mSQL + ',' + QuotedStr(FINVMB[mI])

    End;

    With qry1 Do
    Begin
      Close;
      SQL.Clear;
      SQL.Add(mSQL);
      ExecSQL;

    End;