Código Delphi [-]ADOQuery1.Parameters.ParamByName('fecha').DataType:=ftDate
ADOQuery1.Parameters.ParamByName('fecha').DataType:=ftDate