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 := Desde; //QEquiposporFech := Hasta;end ;end;end