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 then Begin 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 then Begin 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;