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;