variable einer abgeleiteten Klasse auslesen

[goddi]

hi,

zunächst einmal folgender code..:

Delphi-Quellcode:

tTeil = class
      TeilTyp: string;
      Ladung, Nummer: integer;
      x, y: integer;
      aktiv: boolean;
      constructor init(nx, ny: integer);virtual;
      procedure zeichnen;virtual;
      function anWelchemObjekt: tTeil;
      end;

tBuchse = class(tTeil)
      Verbindung: tBuchse;
      Typ: string;
      constructor init(nx, ny: integer);override;
      procedure zeichnen;override;
      end;

zweiEeinA = class(tTeil)
      Eingang1, Eingang2, Ausgang1: tBuchse;
      constructor init(nx, ny: integer); override;
      procedure zeichnen; override;
      end;


[....]

procedure blabla;
var t: tTeil;
  begin
  try 
    ShowMessage(inttostr(aktTeil.Eingang1.Ladung));
    except 
      ShowMessage('ungültiger Typ');
    end;
  end;

das problem ist, dass 't' vom typ tTeil sein MUSS, ich in diesem aber die variable Eingang1 nicht deklarieren will (wenns ned anders geht, muss ichs halt machen..).

wenn jmd was eleganteres wüsste, möge er sich bitte melden