Delphi RzPageControl多个DBGrid选择有关问题

Delphi RzPageControl多个DBGrid选择问题
一个RzPageControl有多个TabSheet，每个TabSheet里面有个DBGrid。实现一个按钮判断当前界面是那个DBGrid
------解决思路----------------------
简单点办法是：按TabSheet的顺序0...N-1给DBGrid的Tag赋值，然后按以下代码：(代码是随手敲的，可能有语法错误，大概意思明白即可)
for i:=0 to Form1.ComponentCount-1 do
  if (Form1.Components[i] is TDBGrrid)then
    if (Form1.Components[i] as TDBGrrid).Tag=PageControl.ActivePageIndex then
    begin
      //你的操作
    end;
------解决思路----------------------
procedure TForm1.Button5Click(Sender: TObject); 
var i,j:integer; 
begin
  j:=PageControl1.ActivePageIndex; //取当前活动页
  for i:=0 to PageControl1.Pages[j ].ControlCount-1 do  //历遍当前页所有控件
    if (PageControl1.Pages[j].Controls[i] is TDBGrid)then//判断控件是否是dbgrid
      showmessage((PageControl1.Pages[j].Controls[i] as TDBGrid).Name); //显示dbgrid的名称
end;