Parameteranzahl einer Funktion/Methode ermitteln??

[princyto]

Hallo,

Ich versuche die Parameteranzahl einer Funktion/Methode zu ermitteln.
Leider bisher ohne Erfolg.

Delphi-Quellcode:

function(aObject: TObject; aMethodName: String):Integer;
var vMethod: Pointer;
begin
      if Assigned(aObject) then
      begin
           vMethod := aObject.MethodAddress(aMethodName);
      end;

      Result := length(vMethod); // Anzahl der Parameter ermitteln?????
end;

Wär toll wenn ihr so schnell wie möglich helfen könntet.

Danke und Gruß, Eugen