예컨데, 위의 DBGrid에 연결된 테이블이 Table1, 아래는  Table2 라 할때,
procedure Form1.Button1Click(Sender: TObject);
var
    Amt: Currency;
begin
    with Table2 do
    begin
        Amt := 0;
        First;
        while Not EOF do
        begin
            Amt := Amt + FieldByName('Amount').AsCurrency;
            Next;
        end;
    end;
    Edit1.Text := CurrToStr(Amt);
end;

와 유사한 방법으로 하면 될 것 같군요.
실제로 Table1에 연결된 Datasource의 OnDataChange 이벤트나 Table1의
AfterScroll 이벤트에서 처리하면 되겠군요.
위의 문장에서 First 윗 줄에 DisableControls;를
while Not EOF do .... end; 밑 줄에 EnableControls; 를 넣어주면 좋겠군요.

그 외에도 Query를 써서(Sum(Expr)) 합계를 얻어 내어도 될 것 같네요.