请帮我看看这个问题这么解决！(5分)

我在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;
但是为什么报表中的数据不能出来呢？
我不知道是错在哪儿，各位能帮我看看吗？

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;

//这些通过了 ？ Form刚刚创建Edit没有创建怎么却使用 ？

我的问题已经解决，就没有人进来谈论一下，我就给分了，简直是送分啊

穿越沦陷的爱你好！我这个问题已经自己解决了，我将分给你，我在发个贴字你来帮我看看好吗

可以呀

还有，我不会在乎给多少分,你写个0分贴子过来好了

接受答案了.

我已经将帖子贴出去了，进来看看