Klasse auf vererbte Procedure prüfen

[Pitschki1801]

Guten Tag zusammen,

ich habe ein Basisobjekt von dem mehrere Objekte abgeleitet werden. In der Basis gibt es eine virtuelle Procedure die ich in manchen Ableitungen überschreibe.
Ich möchte nun in meiner Basis prüfen, ob meine abgeleitete Klasse die virtuelle Procedure der Basis überschreibt und die Basis per Inherited aufruft.
Nur finde ich keine Anhaltspunkt wie ich dies prüfen kann und ob dies überhaupt möglich ist. Per Aufrufstack kann ich ja sehen ob ich aus meiner Ableitung komme oder ob die Funktion direkt aufgerufen wird. Gibt es vielleicht über diesen Weg eine Möglichkeit dies zu prüfen?

Hier noch ein kleines Bespiel:

Delphi-Quellcode:

MyBaseObject= class(TObject)
protected
  procedure MachIrgenwas; virtual;
end;

procedure MyBaseObject.MachIrgenwas; //virtual;
begin
  //Hier möchte ich prüfen
  //Hat die abgeleitet Klasse die procedure überschrieben
  //wenn ja 1+1
  //sonst 1-1 
end;

Grüße
Pitschki