>>650
Form1から
SendMessage()でForm2にマウスメッセージを送るとか
Form2->Perform();でForm2にマウスメッセージを送るとか

Form1->OnMouseDown = TForm2->:Button1MouseDown; とか