Klasse auf vererbte Procedure prüfen

[Bbommel]

Ich bin nicht ganz sicher, ob ich dich richtig verstanden habe, aber meinst du es vielleicht etwa so?

Delphi-Quellcode:

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

MyInheritedObject = class(myBaseObject)
protected
  procedure MachIrgenwas; override;
end;

procedure MyBaseObject.MachIrgenwas; //virtual;
begin
  //Hier möchte ich prüfen
  //Hat die abgeleitet Klasse die procedure überschrieben
  if self is myInheritedObject then
    1+1  // was auch immer das sein soll. ;)
  else
    1-1
end; 

procedure MyInheritedObject.MachIrgenwas;
begin
  inherited;

  // weiterer eigener Code
end;

Tut doch was du willst, oder?