UNIT Unit2; INTERFACE USES Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; TYPE TForm2 = Class(TForm) PRIVATE PUBLIC END; VAR Form2: TForm2; IMPLEMENTATION {$R *.dfm} END.