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