下面的代码是当TfmEditRszl关闭时想刷新一下qRszl表的数据
implementation
  uses Activity;
{$R *.dfm}procedure TfmEditRszl.btCloseClick(Sender: TObject);
begin
  with fmActivity.qRszl do
  begin
    Close; //出错,内存溢出
    open;
  end;  Hide ;
end;