with UnADOQuery do begin
If active then Close;
SQL.Clear;
SQL.Add('Update Cuotas')
SQL.Add('Set Enero = :Enero');
SQL.Add('Where Cliente = :Cliente');
with Paramteres do begin
ParamByName('Enero').Value := edtCuotaEnero.AsCurrency;
ParamByName('Cliente').Value := edtIDCliente.Text;
end; ExecSQL;
end;