Работа Tthread Queue с VCL

#include <System.hpp>
 
enum _DummyType{};      // Parameter used as default
 
template <typename INTF, // Interface with Invoke
          typename F,    // Functor type
          typename R,    // Return type
          typename P1 = _DummyType,  // Param #1
          typename P2 = _DummyType,  // Param #2
          typename P3 = _DummyType,  // Param #3
          typename P4 = _DummyType,  // Param #4
          typename P5 = _DummyType>  // Param #5
class TMethodRef : public TCppInterfacedObject<INTF>
{
private:
  F callback;
public:
  TMethodRef(F _callback) : callback(_callback) {}
  INTFOBJECT_IMPL_IUNKNOWN(TInterfacedObject);
 
  R __fastcall Invoke() {
    return callback();
  }
  R __fastcall Invoke(P1 p1) {
    return callback(p1);
  }
  R __fastcall Invoke(P1 p1, P2 p2) {
    return callback(p1, p2);
  }
  R __fastcall Invoke(P1 p1, P2 p2, P3 p3) {
    return callback(p1, p2, p3);
  }
  R __fastcall Invoke(P1 p1, P2 p2, P3 p3, P4 p4) {
    return callback(p1, p2, p3, p4);
  }
  R __fastcall Invoke(P1 p1, P2 p2, P3 p3, P4 p4, P5 p5) {
    return callback(p1, p2, p3, p4, p5);
  }
};
 
struct RadioPingNotify {
  RadioPingNotify(TMainFrm *_form, ping_info_t _pi) : form(_form), pi(_pi) { }
  void operator()() {
      form->RadioPingReceived(pi);
  }
  TMainFrm *form;
  ping_info_t pi;
};
 
typedef TMethodRef<Classes::TThreadProcedure,
                   RadioPingNotify,
                   void> PingMethRef;
 
#define PING_NOTIFY(f, p) Queue(Classes::_di_TThreadProcedure(new PingMethRef(RadioPingNotify((f), (p)))))
 
...