Verschiedene TObject-Typen in TObjectList

[Yheeky]

Hi,

ich würde gerne folgende Situation mit TObjectList und TObject realisieren.
Ich habe ein Objekt Auto und Fahrrad:

Delphi-Quellcode:

type
  TAuto = class(TObject)
  Marke,
  Modell : String;
  AnzahlTueren : Integer;
end;

type
  TFahrrad = class(TObject)
  Marke,
  Modell : String;
  Gaenge : Integer;
end;

Ich hätte jetzt gerne eine Sammlung mit den Objekten. Wie mache ich das, wenn ich mich bei der Sammlung nicht auf einen Typen festlegen möchte?