Как задать WinApi функции параметром указатель на метод из моего класса?

Tdata = class(Tdatamain)
   procedure goal;
   procedure create;
 end;

implementation

procedure Tdata.goal;
begin
 // :D
end;

procedure Tdata.create;
begin
                                         // Это не работает.
                                         // а хотелось бы что то подобное
winapi_procedure(@self.goal); // для винапи_процедуры нужно "A pointer to the function"

end;