كيف تنفذ Button1Click(Sender) على برامج خارجية

[cargem]

اود من لدية خبرة افادتنا
الهدف هو عملية نقر زر في برنامج خارجي
هذا المثال عندما يكون الفورم 2 في البرنامج
هذا توضيح لا غير عن هدف السؤال

كود :

uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; if Form2.Showing then Form2.Button1Click(Sender); end;

كود :

procedure TForm2.Button1Click(Sender: TObject); begin ShowMessage('Gooooooool'); end;