Objekt kopieren, ohne unnötige methoden/felder usw.

[Pseudemys Nelsoni]

hi,

ist es irgendwie möglich das ich einen Nachfolger einer klasse, einem vorfahren übergeben kann OHNE das die methoden/felder des nachfolgers mitgegeben werden?

wenn ich z.b sowas hier habe:

Delphi-Quellcode:

type
  blah1 = class
    var1: string;
  end;
  blah2 = class(blah1)
    var2: string;
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  blubb1: blah1;
  blubb2: blah2;
begin
  blubb1 := blah1.Create;
  blubb2 := blah2.Create;
  blubb2.var2 := 'hi';
  blubb1 := blubb2;
  showmessage((blubb1 as blah2).var2);  // zeigt immernoch 'hi'
  blubb1.Free;
  blubb2.Free;
end;

dann kann ich immernoch auf die variable "var2" zugreifen... das ist aber unnötig da ich die am ende nichtmehr brauche.... also kann ich irgendwie dem vorfahr nur die methoden/felder übergeben die er selbst besitzt und sonst keine?