Zugriff auf abgeleitete Klasse ?

[moelski]

Moin !

Ich steh gerade irgendwie aufm Schlauch und brauche mal einen Tip ...

Also ich habe ne Klasse die mir als Basis dient:

Delphi-Quellcode:

type TInputSource = class(TPersistent)
...

Und dann davon eine abgeleitete Klasse:

Delphi-Quellcode:

  TSourceNrCommRS232 = class(TInputSource)
...

In einer anderen Klasse verweise ich nun auf eine Instanz von TInputSource:

Delphi-Quellcode:

  TProjectItemClass = class
  private
    FDeviceSource         : TInputSource;
...

Ich nehme hier extra TInputSource weil ich dann jede beliebige abgeleitete Klasse von TInputSource zuweisen kann.

Soweit so gut

Nun würde ich aber gerne auf eine Eigenschaft zugreifen die in TSourceNrCommRS232 definiert ist.
Das klappt aber (so wie ich das sehe) nur mit einem Typecast:
TSourceNrCommRS232(TProjectItemClass(Node.Data).DeviceSource).TueWas... Geht das auch irgendwie anders? Ich finde der Typecast macht die Sache arg unübersichtlich.


Nachtrag:
Node.Data ist ein Pointer auf ein TProjectItemClass.
DeviceSource ist eine property für FDeviceSource.