Интерфейсы

[MaZaHaKa]

Здравствуйте!
Возникла такая проблема!

(test.dll)

  ITest = interface
  ['{995D3A5B-5E9F-47FE-AF59-EDB60FD2B061}']
    procedure SetValue(Value: Integer);
    function GetValue: Integer;
    property TestValue: Integer read GetValue write SetValue;
  end;

  TTest = class(TInterfacedObject, ITest)
    procedure SetValue(Value: Integer);
    function GetValue: Integer;
    property TestValue: Integer read GetValue write SetValue;

    constructor Create;
    destructor Destroy; override;
  end;

function GetITest(): ITest;
begin
  Result := TTest.Create;
end;

exports
  GetITest;

//** Реализация класса в отдельном модуле dll

implementation

constructor TTest.Create;
begin
  inherited Create;
  SetValue(123456);
end;

destructor TTest.Destroy;
begin
  //**
end;

procedure TTest.SetValue(Value: Integer);
begin
  //**
  TestValue := Value;
end;

function TTest.GetValue: Integer;
begin
  //**
  Result := TestValue;
end;

(test.exe)

  ITest = interface
  ['{995D3A5B-5E9F-47FE-AF59-EDB60FD2B061}']
    procedure SetValue(Value: Integer);
    function GetValue: Integer;
    property TestValue: Integer read GetValue write SetValue;
  end;

Далее в test.exe создаем и вызываем метод, возникает ошибка - Переполнение стэка не могу понять в чем проблема подскажите плиз

  function GetITest: ITest; external 'test.dll' name 'GetITest';

var
  Form1: TForm1;

  intf: ITest;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  intf := GetITest;
  ShowMessage(IntToStr(intf.getvalue));
end;

[evg_m]

property Testvalue: integer write Setvalue;

procedure SetValue(val);
begin
TestValue:=val;//в данной строке замаскировался рекурсивный вызов SetValue
end;