Zugriff auf Unterklasse absichern

[norwegen60]

Hallo zusammen,

ich habe folgende (vereinfachte) Klassenstruktur

Delphi-Quellcode:

  TMethode = class
  private
    FNo: Integer;
    FName: String;
  public
    property No: Integer read FNo write FNo;
    property Name: String read FName write FName;
    constructor Create;
    destructor Destroy; reintroduce;
  end;
  
  TAnalyse = class
  private
    FNo: Integer;
    FName: String;
    FMethode : TMethode;
  public
    property No: Integer read FNo write FNo;
    property Name: String read FName write FName;
    property Methode: TMethode read FMethode write FMethode;
    constructor Create;
    destructor Destroy; reintroduce;
  end;
  

  begin
    Label1.Caption := Analyse.Methode.Name;
  end;

Die Zuweisung in der letzten Zeile würde natürlich fehschlagen, wenn der Analyse keine gültige Methode zugewiesen ist. Wie fange ich diesen Fall am Besten ab:

• Erstellung einer Dummy-Methode, die im Falle des nicht Vorhandenseins der Analyse zugewiesen wird?
• Jedes mal mit if assigned(Analyse.Methode) then überprüfen?
• Andere, elegantere Möglichkeit?

Danke
Gerd