Objekt as TKlasse - und nur TKlasse?

[Panthrax]

Hallo.

Ich möchte mit einem Assert sicherstellen, dass ein übergebener Parameter ein Objekt genau einer Klasse ist (und kein Nachfahre).

Wie kann geprüft werden, ob ein Objekt genau eine bestimmte Klasse hat?

Beispiel:

Delphi-Quellcode:

procedure MachWas(const Objekt: TKlasse);
begin
  Assert(Objekt is TKlasse); // TKlasse und nur TKlasse, keine Nachfahrklasse.
  // ...
end;