Problema con consulta fecha access delphi 7

[Yensis22]

Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no me haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en Blanco me tira este error

"//" is not a valid invalin date date and time

Pero es que en EditMask no se encuentra el tipo de formato dataime y el que tengo es el date y le es relizado varios cambios pero no e tenido ningun resultados y es que en access el unico formato de facha es Fecha/Hora. Y tambie cambie los paramtros al tipo ftdatetime y realice uno cambios de coddigo verificalo por fovor

Código Delphi [-]
var  FConsuEquiFech: TFConsuEquiFech;implementationuses login;{$R *.dfm}procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject);beginClose ();end;procedure TFConsuEquiFech.DesdeExit(Sender: TObject);VarA,B: Tdate;beginA:= strtodatetime(Desde.text);B:= strtodatetime(Hasta.text);if A > B thenBegin   Showmessage('La Fecha inicial no Puede ser Mayor que la Final');   desde.clear;   Activecontrol:= desde; End;end;procedure TFConsuEquiFech.HastaExit(Sender: TObject);VarA,B: Tdate;beginA:= strtodatetime(Desde.text);B:= strtodatetime(Hasta.text);if B < A thenBegin   Showmessage('La Fecha Final no Puede ser Menor que la Inicial');   Hasta.clear;   Activecontrol:= Hasta; End;end;procedure TFConsuEquiFech.FormShow(Sender: TObject);begindesde.Clear;hasta.Text := datetimetostr(now);Desde.Text := datetimetostr(now);end;procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);beginWith ConexionDB do begin        QEquiposporFech.active :=false;        QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text);        QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);QEquiposporFech.active :=true;       // QEquiposporFech.Dataset := QEquiposporFech;      // QEquiposporFech := Desde;       //QEquiposporFech := Hasta;end ;end;end

y no se con resolver este problema
_______________
yensis

[[Caral]]

Hola
Por favor lee la guia de estilo.
Saludos