[Decoding]

Например так:

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  Res: integer;
begin
   Table1.Open;
   Table1.First;
   Res := 0;
   while not Table1.Eof do
   begin
      Res := Res + Table1.FieldByName( 'ITOG' ).AsInteger;
      Table1.Next;
   end;
   Table1.Close;
   Edit1.Text := IntToStr( Res );
end;