Sinn oder Unsinn von Class Helper

[WoGe]

Erst mal vielen Dank für die Antworten.

Ich habe mal den Versuch unternommen Speicherplatz für Instanzen bereit zustellen:
(noch sehr rudimentär und seeehhr unschön)

Delphi-Quellcode:

type
  rIchMerkMirwas = Record
    IntMerken : integer;
  End;

  TmyMemo = class helper for TCustomMemo
     private
     function GetMerken: integer;
     procedure SetMerken(const Value: integer);
     public
     procedure Init;
     published
     property Merken : integer read GetMerken write SetMerken;
  end;
...
var 
  myMerkArray : array [0..10] of rIchMerkMirwas;
...

{ TmyMemo }

function TmyMemo.GetMerken: integer;
begin
  result := myMerkArray[Tag].IntMerken;
end;

procedure TmyMemo.Init;
begin

end;

procedure TmyMemo.SetMerken(const Value: integer);
begin
  myMerkArray[Tag].IntMerken := value;
end;

Das ist natürlich erst mal nur eine Machbarkeitsstudie
und das Vorhalten der Daten in einem Globalen-Array ist ja nun nicht wircklich Objektbezogen.

Gibt es eine Möglichkeit das Init direkt und automatisch nach dem Create der Original-Klasse aufzurufen? Da könnte man dann ja viel einfacher eine Verwaltungsstruktur für die Daten implementieren.

Gruss wo