在Form1和form2的Uses下加各自的单元，但是要避免循环调用，不然编译器是报错的。
应该这样调用：
unit Unit1;

interface

uses
   Unit2.pas;
......
--------------------------
unit Unit2;

interface

uses
   ......

var
  Form2: TForm2;

implementation
Uses
   Unit1.pas
......

Delphi窗体互相调用