TObjectList unterschiedliche Objekte erkennen?

[mcbain]

Hallo,
ich speichere in einer TObjectList unterschiedliche Objekte ab. Meine Frage lautet nun, wie kann ich beim auslesen der Objekte erkennen, um welches Objekt es sich handelt?

Die Objekte, welche ich in der List ablege, sind alle von einem anderen Objekt (TAuto) abgeleitet.
Ich habe folgendese probiert:

Code:

for i := 0 to ObjectList.Count - 1 do
begin
  Auto :=  TAuto(Result.Items[i]);

  if (Auto is TCabrio) then
     ShowMessage('Es ist ein Cabrio');

  if (Auto is TCoupe) then
     ShowMessage('Es ist ein Coupe');
end;

Funktioniert aber nicht.

Wäre nett, wenn mir jemand bitte helfen könnte. Bin wohl noch nicht ganz ausgeschlafen .
Vielen Dank.