sumatoria de una tabla mientras se cumpla una condicion

[douglas]

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Text:='select sum(monto)';
query1.SQL.Text:='from control del internet ';
query1.SQL.Text:=' where fecha between :FechaIn and :FechaFin';
query1.parambyname('FechaIn').Value:=edit1.text;
query1.parambyname('FechaFin').Value:=edit2.text;
query1.Open;
end;

aqui esta manix perdon por lo de las variables, pero ya probe y sigue dandome el mismo error, perdomn que te ponga tantas molestias