Ошибка выполнения многошаговой операции OLE DB

ADOCommand1.Parameters[0].Value:=Form1.DataSource1.DataSet.FieldByName('id').Value;
ADOCommand1.Parameters[1].Value:=Form1.ADOQuery4.RecordCount + 1;
ADOCommand1.Parameters[2].Value:=BegN;
ADOCommand1.Parameters[3].Value:=DateTimePicker2.Date;
ADOCommand1.Parameters[5].Value:=DaysBetween(BegN,DateTimePicker2.Date) + 1;
ADOCommand1.Parameters[6].Value:=StrToFloat(Edit1.Text);
days:=DaysInYear(DateTimePicker2.Date);
 
if Form1.ADOQuery4.RecordCount = 0 then begin
  ADOCommand1.Parameters[4].Value:=RoundTo(Basic,-2);
  SumPer:=Basic*(StrToFloat(Edit1.Text)/100)/days*(DaysBetween(BegN,DateTimePicker2.Date) + 1);
  ADOCommand1.Parameters[7].Value:=RoundTo(SumPer,-2);
  if Edit2.Text='0' then begin
    ADOCommand1.Parameters[9].Value:=0;
    ADOCommand1.Parameters[10].Value:=0;
    ADOCommand1.Parameters[11].Value:=0;
  end
  else if StrToFloat(Edit2.Text)/Dollar > SumPer  then begin
    ADOCommand1.Parameters[9].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
    ADOCommand1.Parameters[10].Value:=ADOCommand1.Parameters[7].Value;
    ADOCommand1.Parameters[11].Value:=RoundTo( ADOCommand1.Parameters[9].Value-ADOCommand1.Parameters[10].Value,-2);
   // ADOCommand1.Parameters[11].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar - ADOCommand1.Parameters[7].Value,-2);
  end
    else begin
     ADOCommand1.Parameters[9].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
     ADOCommand1.Parameters[10].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
     ADOCommand1.Parameters[11].Value:=0;
    end;
  end else begin
  ADOCommand1.Parameters[4].Value:=RoundTo(Basic-ADOQuery2.FieldByName('PayBasic').Value,-2);
  SumPer:=ADOQuery2.FieldByName('SumPer').AsFloat+ADOQuery2.FieldByName('Ost').Value*(StrToFloat(Edit1.Text)/100)/days*(DaysBetween(BegN,DateTimePicker2.Date) + 1);
  ADOCommand1.Parameters[7].Value:=RoundTo(SumPer-ADOQuery2.FieldByName('PayPer').Value,-2);
    if Edit2.Text='0' then begin
      ADOCommand1.Parameters[9].Value:=0;
      ADOCommand1.Parameters[10].Value:=0;
      ADOCommand1.Parameters[11].Value:=0;
    end
    else if StrToFloat(Edit2.Text)/Dollar > ADOCommand1.Parameters[7].Value  then begin
      ADOCommand1.Parameters[9].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
      ADOCommand1.Parameters[10].Value:=ADOCommand1.Parameters[7].Value;
      ADOCommand1.Parameters[11].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar - ADOCommand1.Parameters[7].Value,-2);
    end
      else begin
        ADOCommand1.Parameters[9].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
        ADOCommand1.Parameters[10].Value:=RoundTo(StrToFloat(Edit2.Text)/Dollar,-2);
        ADOCommand1.Parameters[11].Value:=0;
      end;
end;
ADOCommand1.Parameters[8].Value:=ADOCommand1.Parameters[4].Value + ADOCommand1.Parameters[7].Value;
ADOCommand1.Parameters[12].Value:=ADOCommand1.Parameters[4].Value - ADOCommand1.Parameters[11].Value;
ADOCommand1.Parameters[13].Value:=StrToFloat(Edit2.Text);
ADOCommand1.Parameters[14].Value:=Dollar;
ADOCommand1.Execute;