Código Delphi [-] ADOQuery1.Active:= True; ADOQuery1.Parameters[0].Value:= StrToDate(DateToStr(DTP1.Date));
ADOQuery1.Active:= True; ADOQuery1.Parameters[0].Value:= StrToDate(DateToStr(DTP1.Date));