我有一个接口函数，如何在我的exe中使用呢？

Question

//============== 接口程序 ===unit1.pas==============
unit Unit1;
interface
type
   IEditTextIntf = interface
      ['{31ACB9B4-EFB0-454D-8A1C-EB806D7C9FAD}']
      procedure setEditText(const Val: string);
      function GetEditText: string;
   end;
implementationend.//=============== 具体实现 ===unit2.pas================
unit Unit2;
interface
uses
   Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,unit1;
type
  TForm2 = class(TForm,IEditTextIntf)
    Edit1: TEdit;
  private
     { Private declarations }
      procedure setEditText(const Value: string);
     function GetEditText: string;
  public
    { Public declarations }
    property EditText: string read GetEditText write setEditText;
  end;var
  Form2: TForm2;
implementation
{$R *.dfm}function TForm2.GetEditText: string;
begin
   Result := Edit1.text;
end;procedure TForm2.setEditText(const value: string);
begin
   edit1.Text := value;
end;initialization
   Form2 := TForm2.Create(nil);
finalization
   Form2.Free;
end.//=============== 主程序 ==================
uses Unit1;  //使用接口
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
//????我该如何在此使用呢。   
end;