[*Caro*]

Hola Yenis22, los errores que te marcan es por esta parte.

Código Delphi [-]
procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
 With ConexionDB do begin
  QEquiposporFech.active :=false;
  QEquiposporFech.ParamByName('fecha1').AsDate:=StrToDate(desde.text);
  QEquiposporFech.ParamByName('fecha2').AsDate:=StrToDate(hasta.text);
  QEquiposporFech.active :=true;
  // QEquiposporFech.Dataset := QEquiposporFech;
  QEquiposporFech := Desde;
  QEquiposporFech := Hasta;
 end; //Le falta este end del With
end;

Le falta el end; del With y no puedes asignar un MaskEdit a un Query, esas dos lineas estan demas.

Saluditos