Hola
Opcion jhonny:
Código Delphi
[-]ADOQuery1.Parameters[0].Value:= StrToDate(DateToStr(DTP1.Date));
Opcion vtdeleon:
Código Delphi
[-]ADOQuery1.Parameters.ParamByName('fecha').value := StrToDate(DateToStr(DTP1.Date));
ADOQuery1.Parameters.ParamByName('fecha').DataType:=ftDate ;
La dos funcionan igual.
Muchas gracias por estar ayudandome.
Saludos