Sumar el importe de un dbgrid

[maravert]

Hola, he probado las instrucciones y me da '0.00'

Estoy realizando una factura y no me muestra el importe al final en el momento de que el usuario va dando de alta los productos que se van vendiendo.

Mi codigo es el siguiente:


Código SQL [-]

procedure TForm18.DBGrid1CellClick(Column: TColumn);
var
TotalImporte : real;
begin
Query1.Close;
Query1.SQL.Text:= 'SELECT SUM (importe) as Totalimporte FROM ventas';
Label18.Caption := FormatFloat('#,##0.00',Totalimporte);
end;






Espero puedan ayudarme