[Neftali [Germán.Estévez]]

Creo que te faltan algunas cosas...

Código Delphi [-]
  // Cierras
  Query1.Close;
  // Asignas el SQL
  Query1.SQL.Text:= 'SELECT SUM (importe) as Totalimporte FROM ventas';
  // Debes lanzar la consulta
  Query1.Open;
  // Luego consultar el valor
  Totalimporte := Query1.FieldByName('Totalimporte ').AsDouble; 
  // Luego mostrarlo
  Label18.Caption := FormatFloat('#,##0.00',Totalimporte);
  // Finalmente puedes volver a cerrar
  Query1.Close;