DM>Report.DataSet:=frDBDataset; DM>frDBDataset.DataSet:=Query; DM>//- дополнительные проперти, если надо DM>