Tdbgrid und TComponenteName

[fips0705]

Hy,
könnt ihr mir mal bitte einen Tip geben wie ich aus einen TComponenteName ein Tdbgrid mache.
Ich bin dabei ein Grid zu sortien, dies funktioniert auch sehr gut. Nur habe ich mehrere Grids auf einem Form und will die
procedure THauptForm.DbGridActivTitleClick(Column: TColumn); ins Programm schreiben und nicht immer DbGrid1TitleClick, DbGrid2TitleClick ... usw.

Zur Zeit sieht es mit DbGridActivTitleClick so aus

Delphi-Quellcode:

 if  ActiveControl.Name = 'DbGrid1' then
 DBGridActiv :=DbGrid1;
 if  ActiveControl.Name = 'DbGrid2' then
 DBGridActiv :=DbGrid2;
 if  ActiveControl.Name = 'DbGrid3' then
 DBGridActiv :=DbGrid3;

weil
 DBGridActiv :=ActiveControl.Name; ja logischerweise nicht funktioniert. Aber wie geht es ???

Dann habe ich noch eine 2. Frage.

Vielen Dank.
Wie kann man die Schriftgröße im Hint ändern (Delphi5) oder funzt das nicht.