Error paso de fecha por parametro en ADO

[[Caral]]

Hola
Que base de datos usas?

Código Delphi [-]
Var
FechaActual:TDate;
begin
DateSeparator:='-';
FechaActual:= FormatDateTime('yyyy/mm/dd',now);
with ADOQCambiar do
begin
// Actualizar
ADOQCambiar.SQL.Clear;
ADOQCambiar.SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = echa '+
'WHERE CuotasEmitidas.CodPers = 1801 ' +
'AND CuotasEmitidas.NumRecibo = 810375');
ADOQCambiar.Parameters.ParamByName('pFecha').Value:= DateToStr(FechaActual);
ADOQCambiar.ExecSQL;
end;
end;

Saludos