Delphi - SUMA DE REGISTROS

SALUDOS HERMANOS
QUIERO SABER ?COMO LE HAGO PARA SUMAR TODOS LOS REGISTROS DE UN CAMPO?

ME REFIERO A QUE TENGO UNA TABLA CON UN CAMPO LLAMADO "PRECIO" EL CUAL YA TIENE VARIOS REGISTROS CON VARIAS CANTIDADES Y QUIERO MOSTRAR LA SUMA DE ESOS REGISTROS MEDIANTE LA INSTRUCCION SHOWMESSAGE...

Select SUM(campo) from tabla where...............
VariableInt:=Query.fields[0].value
showmessage(inttostr(VariableInt));
Suerte