Sumar Registros Con el mismo Id

[jovehe]

Que tal PAblo

Tienes razón no puse en el primero al query se me fue, pero el problema es que si te fijas en mi codigo el sql tiene parametros y estos se igualan a dos campos pero el problema es que debido a esto solo pasa una vez en al tabla.

Yo tengo dos Campos IDALMACEN y IDCONCEPTO los cuales los necesito sumar y mandarlos a otra tabla pero son varios registros. un ejemplo es

Tenemos el IDALMACEN 2 y el IDCONCEPTO: 1003 y en el siguiente registro tenemos el 2 y el 1003; pero despues tenemos el 3 y el 1002 entonces yo tengo que sumar todos los que sean iguales.
El problema es que no se como hacerlo ya hice un pedazo de codigo pero cuando recorre la tabla me repite algunos registros, te pongo mi codigo para que veas como le he hecho.

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
var1, var2, var3, var4 : integer;
begin
Table2.Open;
while not table2.Eof do
 begin
  table2.delete;
 end;
var3 := 0;
var4 := 0;
Table2.open;
Table1.open;
Table1.First;
while not Table1.Eof do
 begin
  var1 := Table1CIDALMACEN.AsInteger;
  var2 := Table1CIDCONCEPTO.AsInteger;
if (var1 <> var3) or (var2 <> var4) then
begin
 Query1.close;
 Query1.ParamByName('almacen').AsInteger := Table1CIDALMACEN.AsInteger;
Query1.ParamByName('concepto').AsInteger:= able1CIDCONCEPTO.AsInteger;
 Query1.Open;
 Table2.Append;
 Table2IDALMCONC.AsString	   := IntToStr (var1) + IntToStr (var2);
Table2CIDALMACEN.AsInteger	 := Query1CIDALMACEN.AsInteger;
 Table2CIDCONCEPTO.AsInteger	:= Query1CIDCONCEPTO.AsInteger;
 Table2CTOTALCOSTO.AsCurrency   := Query1total.AsCurrency;
 Table2CTOTALUNIDADES.AsInteger := Query1total_unidades.AsInteger;
 Table2.Post;
 var3 := var1;
  var4 := var2;
	   //Table1.Next;
end;
  // else
 Table1.Next;
 end;
end;
end.

ojala y me pudieran ayudar porque ya me h dado de topes y no he podido, y gracias por tu respuesta tan pronta Pablo.

Saludos.....