Código Delphi [-]xq1.Parambyname('fecha').AsDateTime := Now();
xq1.Parambyname('fecha').AsDateTime := Now();