Neue Klasse soll Werte übernehmen.

[DasZiesel]

Hiho,

ich habe folgende Klassenstruktur in meinem Projekt.

Delphi-Quellcode:

type
    TItem = class(TCollectionItem)
    private
      FValue1: byte;
      FValue2: int64;
      ...
      FValueX: String;
      ...
    public
      property Wert1: BYTE read FValue1;
      property Wert2: INT64 read FValue2;
      ...
      property WertX: String read FValueX;
    end;
    
    
    ...
    
    TProgressItem = class(TItem)
    private
     ...
    public
      constructor Create(aItem: TItem);
      ...
      property <Einige neue Schlüssel>
      ...
    end;

...

implementation

...
    
constructor TProgressItem.Create(aItem: TItem);
begin
  inherited ...
   
  ...
  
  TItem(self) := aItem;
end;

Mir geht es nun darum das ich beim erstellen der Klasse TProgressItem gern die
Daten aus einem TItem übernehmen möchte. Dies mache ich Moment mit

  TItem(self) := aItem; dies funktioniert zwar auch, aber irgendwie kommt mir dieser Aufruf seltsam vor. Daher
meine Frage, ist dieser Aufruf konform oder gibt es eine andere, elegantere,
sichere Methode?

Danke im voraus