type THogehoge = class public procedure Dummy; end; var cl: procedure of object; fp: procedure; begin fp := @cl; // 関数ポインタだけ取り出し if @cl = @THogehoge.Dummy then // クロージャの関数ポインタと THogehoge の Dummy 関数が等しかったら…