[[Lepe]]

El parámetro lo tienes creado en tiempo de diseño, pero al borrar el sql con "SQL.Clear" ese parámetro se elimina también de memoria, según los resultados, hay que crear el parámetro en tiempo de ejecución:

Código Delphi [-]
procedure TForm1.btnActualizaClick(Sender: TObject);
Var
  FechaActual : TDateTime;
begin

  with ADOQCambiar do
  begin
    SQL.Clear;

    SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = Fecha'+
            'WHERE CuotasEmitidas.CodPers = 1801 ' +
            'AND CuotasEmitidas.NumRecibo = 810375');

    with Parameters.AddParameter do begin
           DataType := ftDateTime;
           Name := 'pFecha'; 
           Direction := pdInput;
           Value := now;
    end;
    Prepared := True;
    ExecSQL;
 end;
end;

A ver qué nos dice ahora

OFFTOPIC: ¿donde están los expertos en ADO? ¿de espectadores?

Saludos