类的写法(50分)

我定义了TDBGrid的一个子类:TpDBG如下:
TpDBG=class(TDBGrid)
public
constructor create;
destructor destory;
procedure show(DBG:TDBGrid);
end;
:
:
procedure TpDBG.show(DBG: TDBGrid);
begin
DBG.columns[1].visible:=false;
end;
调用:
procedure TForm1.Button1Click(Sender: TObject);
begin
TpDBG(self.DBGrid1).show(self.DBGrid1);
end;
我想调用形式为没有参数的方法如下:
TpDBG(self.DBGrid1).show;
但我又怎传递self.DBGrid1到方法SHOW呢,以下方法改成没有参数的该如何改:
procedure TpDBG.show(DBG: TDBGrid);
begin
DBG.columns[1].visible:=false;
end;

TpDBG=class(TDBGrid)
public
constructor create;
destructor destory; override;
procedure show;
end;

procedure TpDBG.show;
begin
columns[1].visible:=false;
end;

哎呀 我怎没想到访问自己呢.
谢谢!