Eigene Objekte in Funktionen

[Jakane]

Hallo liebe Delphi-Helfer

Habe mal wieder ein kleines Problem, was mir aber sehr auf die Nerven geht

Ich habe eine Funktion:

Code:

function TOpenForm.Liste(const pcFormulartyp: TFormulartyp; var pcObjekt: TObjekt): Boolean;

Genutzt wird die Funktion wie folgt:

Code:

procedure TForm.ActionExecute(Sender: TObject);
var
  cObjekt: TArtikelgroesse;
begin
  if not OpenForm.Liste(ftArtikelgroesse, TObjekt(cObjekt)) then 
    Exit;

...

Artikelgroesse und viele viele andere sind von TObjekt abgeleitet.

Code:

type
  TArtikelgroesse = class(TObjekt)

Statt bei jedem Aufruf "TObjekt(cObjekt)" zu nutzen um es dann im Endformular wieder mit "TArtikelgroesse(cObjekt)" umzuwandeln,
würde ich gerne einfach nur "cObjekt" übergeben.
Bei "ActionExecute(Sender: TObject)" kann der Sender ja auch jedes Objekt sein, was daraus abgeleitet wurde...
OpenForm selbst gibt das Objekt nur an das entsprechende Formular weiter und tut selbst nichts damit.

Hat jemand Rat?