Mehrere Klassen von einer Klasse ableiten

[gargano]

Hallo,

ich habe schon einiges hier von abstrakten Klasse, Interfaces, Plugins gelesen, bin aber nicht so richtig fündig geworden.

Mein Problem ist folgendes:

Ich habe mehrere unterschiedliche Klassen die aber alle diegleichen Funktionen (im Interface) haben.
Die Klassen führen die Funktionen aber unterschiedlich aus.

Um auf die verschiedenen Klassen zuzugreifen habe ich im Moment eine Verzweigungsroutine z.B:

Delphi-Quellcode:

if DeviceObject.ModuleName ='Manual Inject' then begin
  TManInjectDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;

if DeviceObject.ModuleName ='Pump4xx' then begin
            TPump4xxDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;

if DeviceObject.ModuleName ='Pump300/500' then begin
            TPump35xxDeviceDataModule(DeviceObject.DeviceModule).InitDevice;
end;

DeviceObject ist auch eine Klasse, die dann das Object des jeweiligen Devices enthält.

Mein Problem ist jetzt, das wenn eine neue Klasse hinzukommt ich jedesmal diese Verzweigungsroutinen ändern muß.

Ziel ist es, eine Liste zu haben ( die man erweitern kann) in der die Namen der Bpl's stehen und diese bpl (für jedes Device eine eigene Bpl) dynamisch geladen wird. In diesem Falle ist diese Verzweigung nicht mehr nötig, sodaß das Hauptprogramm nicht jedesmal neu kompiliert werden muß.

Es müßte also anhand des Modulnamens auf die richtige Klasse zugegriffen werden.
Die Klasse muß auch mehrfach instanziiert werden können.

Wie kann ich das am besten und einfachsten bewerkstelligen ?

Gruß
Gargano