帮我一下~！在线等.急~!

我正在写一个程序，要从一个FORM调用另外一个打印程序，调用方式是对的，可是出现以下的错误: 
[Error] bimsoft5.pas(68): Record, object or class type required 
[Error] bimsoft5.pas(68): Missing operator or semicolon 
[Error] bimsoft5.pas(73): Record, object or class type required 
[Error] bimsoft5.pas(73): Missing operator or semicolon 
[Fatal Error] bimsoft2.pas(66): Could not compile used unit 'bimsoft5.pas' 我已经在uses处调入bimsoft6. 
打印程序的名字为:print. 
源程序如下: interface uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, Grids, DBGrids,unit1, StdCtrls, Buttons, XPMenu, Mask, DBCtrls; type 
Tzr = class(TForm) 
DBGrid1: TDBGrid; 
Label1: TLabel; 
DBText1: TDBText; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 
Label5: TLabel; 
Label6: TLabel; 
DBEdit1: TDBEdit; 
DBEdit2: TDBEdit; 
DBEdit3: TDBEdit; 
DBEdit4: TDBEdit; 
DBEdit5: TDBEdit; 
XPMenu1: TXPMenu; 
BitBtn1: TBitBtn; 
DBText2: TDBText; 
BitBtn2: TBitBtn; 
BitBtn3: TBitBtn; 
BitBtn4: TBitBtn; 
BitBtn5: TBitBtn; 
savezr: TBitBtn; 
BitBtn7: TBitBtn; 
procedure savezrClick(Sender: TObject); 
procedure BitBtn7Click(Sender: TObject); 
procedure BitBtn4Click(Sender: TObject); 
procedure BitBtn5Click(Sender: TObject); 
procedure BitBtn1Click(Sender: TObject); 
procedure BitBtn2Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; var 
zr: Tzr; implementation uses bimsoft6,bimsoft7; {$R *.dfm} procedure Tzr.savezrClick(Sender: TObject); 
begin 
DM.Table_bimsoft.Post; 
close; 
end; procedure Tzr.BitBtn7Click(Sender: TObject); 
begin 
DM.Table_bimsoft.Cancel; 
close; 
end; procedure Tzr.BitBtn4Click(Sender: TObject); 
begin 
print.QuickRep1.print; 
end; procedure Tzr.BitBtn5Click(Sender: TObject); 
begin 
Print.QuickRep1.Preview; 
end; procedure Tzr.BitBtn1Click(Sender: TObject); 
begin 
dm.Table_zr.Append; 
form11.show; 
end; procedure Tzr.BitBtn2Click(Sender: TObject); 
begin 
form11.show; 
end; end. 请帮我一下,谢谢~!