[Electronic_Arts]

Kак сделать этот код глобальной процедурой

Код:

var
sum2:real;
begin
  sum2:=0;
  adotable3.Active:=true;
 adotable3.First;
 while ADOTable3.Eof <>true do
 begin
   sum2:=sum2+ADOTable3pribol.Asfloat;
   ADOTable3.Next;
 end;
LABEL3.Caption:=floattostr(sum2);
adotable3.Active:=false;
end;