Consulta sql solo funciona una vez

[webmasterplc]

Hola ya realize la suma de las columnas pero las hice directamente en el reporte, pase los parametros al reporte y listo, pero solo puedo ejecutarla una sola vez porque si la vuelvo a ejecutar me da error aca colocare el error en una imagen y el codigo con lo cual hago la consulta.

Código Delphi [-]
  Data.sqejecpresupuestaria.Close;
     Data.sqejecpresupuestaria.SQL.Add('SELECT ipartidas, partida, sum(debe) as debe, sum(haber) as haber, sum(cargo) as cargo, sum(descargo) as descargo ');
     Data.sqejecpresupuestaria.SQL.Add('from ejecpresupuestaria');
          Data.sqejecpresupuestaria.SQL.Add('WHERE (((ejecpresupuestaria.programa)="'+programa.Text+'"))');
     Data.sqejecpresupuestaria.SQL.Add('and (((ejecpresupuestaria.presupuesto)='+'"'+presupuesto.Text+'"))');
     Data.sqejecpresupuestaria.SQL.Add('and (((ejecpresupuestaria.actividad)='+'"'+edtactividad.Text+'"))');
     Data.sqejecpresupuestaria.SQL.Add('and (((ejecpresupuestaria.pprograma)='+'"'+edtpprograma.Text+'"))');
     Data.sqejecpresupuestaria.SQL.Add('GROUP BY ipartidas');
     Data.sqejecpresupuestaria.Open;
     Data.transtmejecucion.Execute;
     Data.sqejecpresupuestaria.Close;
     Data.repejecucion.ShowReport;