[[Caral]]

Hola
A ver en una variable:

Código Delphi [-]
Var nati: Real;
Begin
Query1.sql.text:= 'Select sum(MONTO) as Monto from TABLAPAGO '+
                     ' where CODCLIENTE = 1 '+
                     ' Group by COD.CLIENTE DETALLE MONTO ';
Query1.Open;
nati:= Query1.Fields[0].Value;
end;

Saludos