Neustrukturierung (nach OOP) meines Programmes

[RWarnecke]

Ich würde das ganze so machen :

Delphi-Quellcode:

type
  THauptklasse = class
  private
    FZeigeMenuepunkt1 : boolean;
    FZeigeMenuepunkt2 : boolean;
  published
    property ZeigeMenuepunkt1 : booelan read FZeigeMenuepunkt1 write FZeigeMenuepunkt1;
    property ZeigeMenuepunkt2 : booelan read FZeigeMenuepunkt2 write FZeigeMenuepunkt2;
  end;

  TSchall = class(THauptklasse)
  private
    // Irgendwas machen
  public
    // Irgendwas machen
  protected
    // Irgendwas machen
  published
    // Irgendwas machen
  end;

{...}

procedure ZeigeMenupunkte;
var
  Schall : TSchall;
begin
  Schall := TSchall.Create;
  try
    Menupunkt1.Visible := Schall.ZeigeMenuepunkt1;
    {...}
  finally
    Schall.Free
  end;
end;

So würde ich das ganze aufbauen. Wie gesagt, es ist nicht komplett und soll auch nur die grobe Struktur zeigen, wie ich es aufbauen würde.