如何将一个窗体的DataSet通过参数传到另一个窗体？(100分)

procedure TForm1.N2Click(Sender: TObject);
begin
PropertyQueryFrm:= TPropertyQueryFrm.Create(Application);
PropertyQueryFrm.Show;
showmessage('调用Query方法');
end;
在form1中打开的数据集
在PropertyQueryFrm中实现查询

有很多方法可以实现，介绍一种：
在TPropertyQueryFrm定义一个Public方法，如
procedure TPropertyQueryFrm.ShowQuery(Q:TQuery);
begin
DBGrid1.DataSource.DataSet:=Q;
Show;
end;
Form1如此调用：
procedure TForm1.N2Click(Sender: TObject);
begin
PropertyQueryFrm:= TPropertyQueryFrm.Create(Application);
PropertyQueryFrm.ShowQuery(Query1);
end;

接受答案了.