Saludos
De la única forma que veo que se puede hacer es:
Código Delphi
[-]
var
Sum,Prom,Mayor:real;
Regs:integer;
begin
Mayor:=0;
with table1 do begin
open;
first;
while not eof do begin
Sum:=Sum+FieldByName('campo').AsFloat;
inc(Regs);
if mayor'campo').AsFloat then
Mayor:=FieldByName('campo').AsFloat;
Next;
end;
Prom:=Sum/Regs;
Close;
end;
end;
Esto robaría recursos del sistema.
Lo mejor es que busques en
Google algun manual(de los miles que hay) e investigue y aprendas la Sentencias
Con SQL
Código SQL
[-]
Select (Sum(campo)/count(campo)) as promedio
from tabla
Y solo con esta linea, obtienes el promedio