Como capturar una variable de Firebird en Delphi

[Casimiro Noteví]

Por cierto, los paréntesis en close y open también sobran.

Código Delphi [-]
IBQuery1.Close;
IBQuery1.SQL.Text := 'Select Sum(monto) from Montos WHERE NOMBRES = :nombre AND CAST(FECHA as DATE) = CURRENT_DATE';
ibquery1.params[0].asstring := ENOMBRE.Text;
IBQuery1.Open;
Monto := IBQuery1.Fields[0].AsInteger;
ShowMessage(InttoStr(Monto));