[lmikle]

Как-то так:

Код:

procedure calculate(ADOtable3: tADOtable; label3:tlabel);
var
sum2:real;
begin
  sum2:=0;
  adotable3.Active:=true;
 adotable3.First;
 while ADOTable3.Eof <>true do
 begin
   sum2:=sum2+ADOTable3.fieldByName('pribol').Asfloat;
   ADOTable3.Next;
 end;
LABEL3.Caption:=floattostr(sum2);
adotable3.Active:=false;
end;

или же как у тебя, но тогда надо создать соотв. компоненты в коде, установить соединение и т.д.

ЗЫ. вроде не новичек, а элементарных вещей не знаешь... странно.