Está un poco liado el código, seguro que por las pruebas que has hecho, inténtalo así:
Código Delphi
[-]
procedure TrepPres.consultas();
begin
moduloDatos.ADOQuery1.Close;
moduloDatos.ADOQuery1.SQL.Text:='Select equipo.nombre, pestamos.fecha from prestamos inner join equipo on equipo.idequipo = prestamos.folioequipo where (prestamos.fecha between f1 AND :f2) order by nombre';
moduloDatos.ADOQuery1.Parameters.ParamByName('f1').Value:=fi;
moduloDatos.ADOQuery1.Parameters.ParamByName('f2').Value :=ff;
moduloDatos.ADOQuery1.Open;
reporPrestamos.QRDBText1.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText2.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText3.DataSet:=moduloDatos.ADOQuery1;
reporPrestamos.QRDBText1.DataField:='folioe';
reporPrestamos.QRDBText2.DataField:='fecha';
reporPrestamos.QRDBText3.DataField:='hdevolucion';
reporPrestamos.Preview;
end;
No sé bien la relación entre equipo y prestamos, lo he hecho por los campos folioequipo e idequipo, modifícalo si no es así.
Saludos