フォームを渡すには？

うめ  2006-06-15 18:51:30  No: 22198  IP: 192.*.*.*

フォームがいくつかあって、そのいくつかのフォームから下記の手続きを実行したいのです。例えば、Form2から呼出したときには、下記手続きのForm1のところがForm2になるようにしたいのです。
どのように書けばよいのでしょうか？
procedure TMain.BtnMuko(Sender: TObject);
var
    hMen: Integer;
begin
    hMen := GetSystemMenu(Form1.Handle, False);
   // 省略
end;

編集 削除
カレーライズ  2006-06-15 19:44:46  No: 22199  IP: 192.*.*.*

Sender  には TFrom型の変数を引数が入ってくるという前提ならば
TMain.BtnMuko内で TempForm : TForm;
でも宣言しておいて 
  TempForm:=Sender; 
で代入すれば
hMen := GetSystemMenu(TempForm .Handle, False);
でいけると思います。

編集 削除