在Form1和form2的Uses下加各自的单元，但是要避免循环调用，不然编译器是报错的。
应该这样调用：
unit Unit1;
interface
uses
Unit2.pas;
......
--------------------------
unit Unit2;
interface
uses
......
var
Form2: TForm2;
implementation
Uses
Unit1.pas
......
原文：http://www.cnblogs.com/smartlittleant/p/4034591.html