como hago para que un TQRExpr de Qreport me tome campos de un ttable en un Datamodulo

[delphi.com.ar]

Estos son los archivos, si copias y creas los archivos tendrás el ejemplo.

QuickDM.dfm

program QuickDM;

uses
  unDataModule in 'unDataModule.pas' {DataModule1: TDataModule},
  unQuickReport in 'unQuickReport.pas' {QuickReport1: TQuickRep};

unDataModule.dfm

object DataModule1: TDataModule1
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Table1: TTable
    TableName = 'Contacts.DB'
    Left = 16
    Top = 12
  end
end

unDataModule.pas

unit unDataModule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDataModule1 = class(TDataModule)
    Table1: TTable;
  private
  public
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.DFM}

end.

unQuickReport.dfm

object QuickReport1: TQuickReport1
  DataSet = DataModule1.Table1
  object QRBand1: TQRBand
    BandType = rbDetail
    object QRExpr1: TQRExpr
      Left = 271
      Top = 24
      Width = 198
      Height = 17
      Alignment = taCenter
      AlignToBand = True
      Expression = 'Table1.Copies + Table1.ProductID'
    end
  end
end

unQuickReport.pas

unit unQuickReport;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  TQuickReport1 = class(TQuickRep)
    QRBand1: TQRBand;
    QRExpr1: TQRExpr;
  private
  public
  end;

var
  QuickReport1: TQuickReport1;

implementation

uses Unit1;

{$R *.DFM}

end.

Saludos!