klasseninstanz finden

[_frank_]

ich versuche eine Funktion zu schreiben, die mir die Objektreferenz aus einem string zurückgibt.
z.B. möchte ich aus 'Button1.font' => Button1.font haben
ich hoffe, ich habe mich verständlich ausgedrückt...ich suche sowas ähnliches wie findcomponent, nur für unterklassen.
in meinem Beispiel wird diese Funktion subclass ( Zeile 14,18 ) genannt.

Delphi-Quellcode:

function getSubInstance(form:TForm;comp:string):TObject;
var s:string;
    p:integer;
begin
  result:=nil;
  p:=pos('.',comp);
  if p>0 then
  begin
    result:=form.FindComponent(copy(comp,1,p-1));
    delete(comp,1,p);
    p:=pos('.',comp);
    while p>0 do
    begin
      //result:=result.subclass(copy(comp,1,p-1));
      delete(comp,1,p);
      p:=pos('.',comp);
    end;
    //result:=result.subclass(copy(comp,1,length(comp)));
  end else result:=form.FindComponent(comp);
end;

Gruß Frank