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); 

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

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

//
Procedure TNewForm2.Button55Click(Sender: TObject);
Begin
 NewForm2.Color:= clRed;
End;
//
{Мне нужно из первой формы присвоить указатель на метод Button1Click другой формы и выполнить код выше. 
То есть, представьте, что я бросил на другую форму кнопку, но обработчик события присваиваю вручную,
минуя Инспектор объектов и соответственно, никакой ссылки он не содержит. 
Мне необходимо эту ссылку прописать вручную в первой форме. 
Что я делаю не так?}
//
Procedure TForm1.Button44Click(Sender: TObject);
Var
 TM: TMethod;
Begin
 TM.Code:= @Button55Click; // но на форме NewForm2
 TM.Data:= ??? - объект кнопка Button55, // но на форме NewForm2
 SetMethodProp(NewForm2.Button55, 'OnClick', TM);
End;
//

TM.Data:= ???
TM.Code:= ???
// Но находится это в первом модуле

Function SetMethodRTTI(FormName: TObject; KompName: TObject; EventName: string): Boolean;
Var
 TM: TMethod;
Begin
 TM.Code:= @EventName;
 TM.Data:= KompName;
 SetMethodProp(KompName, EventName, TM);
End;
// FormName - имя второй формы на которой находится KompName
// EventName - событие KompName, например TKeyPress
// Этим кодом я присваиваю указатель на метод FormName.KompName.EventName
// Компонент может быть любым, так же как и его событие