在delphi中如何动态的设置水晶报表的数据源？(100分)

仿照vb的例子写的，但
编译不过去了，应该怎样写呢？ 求源码
var
report: IReport;
begin

report := Application1.OpenReport('../RptLogin.rpt', crOpenReportByTempCopy);
with ADODataSet1do

begin

CommandType := cmdText;
CommandText := 'SELECT * FROM loginrecord';
Open;
end;

{
Report.Database.l SetDataSource(olevariant(DataSource1));
在这里编译不过去了，提示数据类型错了
}
Report.ReadRecords;
CrViewer1.Refresh;
crViewer1.ReportSource := Report;

crViewer1.ViewReport;
end;


应该怎样写呢？