[anonymous]

Buenas tengo el siguiente error :
qGeneral : No SQL statement provided

Código Delphi [-]
procedure TflistadoClientes.bEliminarClick(Sender: TObject);
var
id:Integer;
begin
  if Application.MessageBox ('Esta accion eliminara a El Cliente Esta Seguro?','Drugstore',MB_YESNO+MB_ICONQUESTION)= IDYES
    then

  begin
  fModulo.qGeneral.Close;
  fModulo.qGeneral.Active := True;
  fModulo.qGeneral.SQL.Clear;
  fModulo.qGeneral.SQL.Add('update clientes set estado = 0');
  fModulo.qGeneral.SQL.Add('where idclie = :id');
  fModulo.qGeneral.ParamByName('id').AsInteger := fModulo.qClientes['idclie'];
  fModulo.qGeneral.ExecSQL;


end;
   fModulo.qGeneral.Refresh;
end;

Muchas gracias desde ya ..