type 
   TObjProc = Procedure(Sender: object): of object;

var 
   MyObj:  TObjProc;
   result := OleVariant(Integer(MyObj));

var
  aInt: Integer;
  MyObj: TObjProc;
begin
  aInt := result;
  MyObj := TObjProc(aInt);
end;

type 
   TObjProc = Procedure(Sender: object): of object;
   PObjProc = ^TObjProc;

// TMethod = record Code, Data: Pointer; end;

var
   recMethod    : TMethod;  
   ObjProc      : TObjProc;
   pObjProc     : PObjProc;
   pSelf        : TObject;
begin
   ObjProc := .....
   
   recMethod := TMethod(ObjProc);
   
   pObjProc := PObjProc(recMethod.Code);
   pSelf := TObject(recMethod.Data);

var
  Proc: TProc<TObject>;

Proc := Button1Click;

Proc(nil);