"übergeordnete" Klasse ermitteln

[ichbins]

wie kann man den self-zeiger übergeben?
is self überhaupt ein zeiger?
@kroko: ne, so will ich das nicht machen, weil bei mir sieht das ungefähr so aus:

Delphi-Quellcode:

tattribs=class
  //...
  procedure load //hier brauch ich filename
end;

tfile=class
  private
    filename:string;
  public
  //~1.000.000 propertys und prozeduren  :) 
  attribs:tattribs;
end;

ich will attribs einfach der Ordnung halber als extra unterpunkt machen.