Du müsstest Dir eine Grundklasse bilden, in der alle Eigenschaften, Methoden usw. vorhanden sind, die für alle gelten und dann von diesen Ableiten.
Delphi-Quellcode:
type
TFahrzeug = class(TObject) // oder auch etwas anderes
end;
TAuto = class(TFahrzeug)
end;
TPorsche = class(TAuto)
end;
TFerrai = class(TAuto)
end;
TFahrrad = class(TFahrzeug)
end;
TRennrad = class(TFahrrad)
end;
TMountainbike = class(TFahrrad)
end;
Da ich Deine bisherigen Klassen nicht sehen kann und die Paramter nicht kenne, kann ich ansonsten erst nicht mehr dazu sagen. Wie ich hier gezeigt habe, solltest Du aber mal anfangen Deine Klassen aufzubauen.
Vielleicht kannst Du ja auch mal etwas mehr Code posten.
Grüße
Sven