String zu Funktion

[sirius]

Delphi-Quellcode:

{$M+} //Könnte sein, dass dies nicht zwingend notwendig ist
type Ix=interface
       function getobject:TObject
       ...
     end;
     
     Tx=class(TInterfacedObject,Ix)
         function getObject:TObject;
       published
         procedure catchme;
     end;

...
{$M-} 

function Tx.getObject:TObject;
begin
  result:=self;
end;

...

var x:Ix
begin
  x:=Tx.create;
  x.getObject.Methodaddress('catchme');

So habe ich mir das vorgestellt. Damit geht natürlich kein COM-Server etc.
Edit Allerdings kannst du die Methode so nicht aufrufen, dafür brauchst du noch self.