加急！看看我的问题,急待解决(200分)

1。
procedure TForm3.Button3Click(Sender: TObject);
begin
// unit16.Form16.ShowModal ;
unit16.Form16.QRLabel2.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('mc').AsString ;
unit16.Form16.QRLabel3.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('sy').AsString ;
unit16.Form16.QRLabel4.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('sccj').AsString ;
unit16.Form16.QRLabel5.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('wz').AsString ;
unit16.Form16.QRLabel6.Caption :=inttostr(unit2.DataModule2.ADOQuery3.fieldbyname('yqsl').Asinteger);
unit16.Form16.QRLabel7.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('bh').AsString ;
unit16.Form16.QRLabel8.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('jg').AsString ;
unit16.Form16.QRLabel9.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('scgb').AsString ;
unit16.Form16.QuickRep1.Preview ;
end;
错误提示：
access violation at address 0054bbe9 in module 'project1.exe' read of
address 000002f8
我不知道这个问题如何解决
2。
如何将报表以表格的形式将库里的所有记录一起打出来呢？
小弟这两方面不明白，找过书，但书上将做报表这一部分较少，所以只好向高手请教了
谢谢大家了

各位帮帮我呀！

QuickReport经常出这样的问题，实在太差劲了
强烈推荐用FastReport,太好用了，对FastReport你的第二个问题也可迎刃而解。

1.你一定是將form16加在Option的Available Forms的框內，建議使用前創建實例。
即將你的代碼改為：
procedure TForm3.Button3Click(Sender: TObject);
begin
unit16.Form16:=unit16.Tform16.create(self);//加上此句
unit16.Form16.QRLabel2.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('mc').AsString ;
unit16.Form16.QRLabel3.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('sy').AsString ;
unit16.Form16.QRLabel4.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('sccj').AsString ;
unit16.Form16.QRLabel5.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('wz').AsString ;
unit16.Form16.QRLabel6.Caption :=inttostr(unit2.DataModule2.ADOQuery3.fieldbyname('yqsl').Asinteger);
unit16.Form16.QRLabel7.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('bh').AsString ;
unit16.Form16.QRLabel8.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('jg').AsString ;
unit16.Form16.QRLabel9.Caption :=unit2.DataModule2.ADOQuery3.fieldbyname('scgb').AsString ;
unit16.Form16.QuickRep1.Preview ;
end;
2.要想報表以表格的形式打印，只有用Qrshape畫表格。

多人接受答案了。