请帮我看看这个问题这么解决！

我在form1中有个GRID写代码如下：
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
form2:=Tform2.Create(self);
form2.show;
form2.edit1.text:=table1.Fieldbyname('bname').asstring;
form2.edit2.text:=table1.Fieldbyname('bnum').asstring;
form2.edit3.text:=table1.Fieldbyname('tel').asstring;
end;
在FORM2中还有一个BUTTON控件，用于打印功能，我要将显示在form2窗体中的记录以报表的格式打印出来，我在BUTTON1中的代码为：
procedure TForm2.Button1Click(Sender: TObject);
begin
with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From bmb Where bnum=:sName');
    Params.ParamByName('sName').Value :=edit2.text;
    Open;
  end;
  Form3.QRDBText1.DataField := Query1.Fields[0].FieldName;
  Form3.QRDBText2.DataField := Query1.Fields[1].FieldName;
  Form3.QRDBText3.DataField := Query1.Fields[2].FieldName;
  Form3.QuickRep1.Preview;
end;
但是为什么报表中的数据不能出来呢？
我不知道是错在哪儿，各位能帮我看看吗？