Переменная процедурного типа , Как записать в неё существующую функцию/метод.

Есть метод у формы (или хотя бы просто функция).

function TForm1.MyFunction(Command: integer; Param: Pointer): boolean;
begin
  //...
end;

Есть переменная процедурного типа.

type
  FTMyFunction = function(Command: integer; Param: Pointer): boolean;
var
  MyFunctionVar: FTMyFunction;

Как в переменную MyFunctionVar записать адрес функции/метода MyFunction?

Присвоить. А чтобы можно было присваивать методы класса напиши так

type
  FTMyFunction = function(Command: integer; Param: Pointer): boolean of object;
 
  MyFunctionVar := MyFunction;

О! Пасиба!
Я про "of object" не знал