[Страдалецъ]

Я думаю вам подойдет такой код:

Код:

Q.SQL.Text := 'select Sum(MyField) as FieldSum from MyTable';
Q.Open;
Label1.Caption := VarToStr(Q.FieldValues['FieldSum'])