怎样从Sender得到DBGrid2 或DBGrid1的名称(也就是判断从哪个DBGrid引发的过程) ？(10分)

procedure TForm1.send(Sender: TObject);
begin
在这里怎样得到DBGrid2 或DBGrid1的名称(也就是判断从哪个DBGrid引发的过程)
end;

procedure TForm1.DBGrid2DblClick(Sender: TObject);
begin
send(Sender) ;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
send(Sender) ;
end;

procedure TForm1.send(Sender: TObject);
var s:string;
begin
s:=TDBGrid(sender).name ;

end;

能否再问一句，要是不知道是TDBGrid类地情况下怎样取得对象名。

findcomponent得到所有的子对象，然后一个一个地用classname得到类对象的名称啊[]