Tabla1.First;
camposum
campo := 0;
while not Tabla1.Eof;
begin
if campo = Tabla1Valor1 then
camposum := camposum + Tabla1ValorASumar
else
begin
Tabla2.Append;
Tabla2Valor1 := campo;
Tabla2ValorSumado := camposum;
Tabla2.Post;
campo := Tabla1Valor1; camposum :=0;
end;
Tabla1.Next;
end;
Tabla2.Append;
Tabla2Valor1 := campo;
Tabla2ValorSumado := camposum;
Tabla2.Post;