Как правильно присвоить указатель на метод?

Procedure TForm2.Button44Click(Sender: TObject);
begin
 //
end;

//
Procedure SetMethodRTTI(A: TObject; EventName: string): boolean;
var
 TM: TMethod; 
 // A- содержит объект(компонент), например Button44
 // EventName - содержит имя метода(события), например OnClick
begin
 try
  TM.Data:= A;
  TM.Code:= @EventName;
  SetMethodProp(A, @EventName, TM);
  if TM.Code<>nil then
  begin
   Result:= True;
  end
  else
  begin
   Result:= False;
  end;
 except
  //
 end;
end;
// Если я явно укажу:

// TM.Data:= Button44;
// TM.Code:= @Button44Click;

// Так правильно? Или так ?

// TM.Data:= Button44;
// TM.Code:= Form2.Button44Click;
//
// SetMethodProp(A, ?, TM); 

Procedure SetMethodRTTI(A: TObject; EventName: string): boolean;

procedure TForm2.SetMethod;
var
  LEvent: TNotifyEvent;
  LMethod: TMethod;
begin
  LEvent := Button44Click;
  LMethod := TMethod(LEvent);
  SetMethodProp(Button44, 'OnClick', LMethod);
end;

TM.Data:= ???
TM.Code:= ???

TM.Data:= ???
TM.Code:= ???

TM.Data:= ???
TM.Code:= ???

TM.Data:= Form2
TM.Code:= @Form2.Button44Click