Problemas com ADOStoredroc em Delphi 10.2

Tenho o seguinte código em delphi:


ADOStoProc.Close;
ADOStoProc.Parameters.ParamByName('@v_ano_mes').Value:= CbxAnoMes.Text;
ADOStoProc.Parameters.ParamByName('@v_unidade').Value:= Copy(CbxUnidade.Text, 1, 3);
ADOStoProc.Parameters.ParamByName('@v_indper').Value := 23;
valperf:= StrToFloat(LbEdVendaVista.Text);
ADOStoProc.Parameters.ParamByName('@v_valor').Value := valperf;
ADOStoProc.Prepared;
ADOStoProc.ExecProc;

ADOStoProc.Close;
ADOStoProc.Parameters.ParamByName('@v_ano_mes').Value:= CbxAnoMes.Text;
ADOStoProc.Parameters.ParamByName('@v_unidade').Value:= Copy(CbxUnidade.Text, 1, 3);
ADOStoProc.Parameters.ParamByName('@v_indper').Value := 28;
valperf:= StrToFloat(LbEdNClientesAtendidos.Text);
ADOStoProc.Parameters.ParamByName('@v_valor').Value := valperf;
ADOStoProc.Prepared;
ADOStoProc.ExecProc;


Porém, ao rodar o programa, ele somente executa a procedure uma vez, ignorando a segunda e as demais. Alguém sabe me ajudar?