[lmikle]

а самому подумать???

1.

Код:

SELECT SUM(Sum_Field) FROM Table WHERE ....

2.

Код:

Query1.First;
ASum := 0;
While Not Query1.EOF Do
begin
  ASum := ASum + Query1.FieldByName('Sum_Field').AsCurrency;
  Query1.Next;
end;
Label1.Cation := CurrTostr(ASum);