Hola
Te esta diciendo que Monto no existe y es asi ya que no lo declaraste en realidad o usas Filebyname o Field.
Código Delphi
[-]
var mont:real;
begin
query1.SQL.Clear;
Query1.sql.text:= 'Select sum(importe) as Monto from cobranzas where alucurso = xx' ;
query1.Active:=true;
mont:= Query1.fields[0].Value;
Otra cosa: O lo activas o lo abres, pero las dos son innecesarias juntas.
Saludos