Ist im Prozedurzeiger eine Klasse drin?

[guinnes]

Nicht schön tut aber :

Delphi-Quellcode:

procedure Check(Proc: TProc);
begin
  if Integer(TMethod(Proc).Data) > Integer(Application) then
    ShowMessage('Object')
  else
    ShowMessage('Class Proc');
end;