procedure TForm1.Button1Click(Sender: TObject);
Var
FechaActual : TDateTime;
begin
FechaActual :=now;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:='Update CuotasEmitidas SET ImpRecibo = 21.02, FecSituacion= :MiFecha ' +
' WHERE (CuotasEmitidas.CodPers = 462 AND CuotasEmitidas.NumRecibo = 1)';
begin
DataType:=ftDate;
Name :='MiFecha';
Direction:=pdInput;
end;*)
Parameters.ParamByName('MiFecha').Value:=StrToDate(FormatDateTime('dd/mm/yyyy',fechaActual));
Prepared:=True;
if prepared then
ExecSQL;
end;