[ContraVeneno]

Código Delphi [-]
procedure TfReenvios.BitBtn2Click(Sender: TObject);
begin
with ADOQCambiar do begin
  // Actualizar
  If active then Close;
  SQL.Clear;
  SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = :Fecha ');
  SQL.Add('WHERE CuotasEmitidas.CodPers = 1801 ');
  SQL.Add('AND CuotasEmitidas.NumRecibo = 810375');
  Parameters.ParamByName('Fecha').Value := Now;
  ExecSQL;
 end; //with
end;

Eso funciona, comprobado. Cualquier error que te marque, no es culpa de este código y deberías buscar el error en otro lado.