Delphi Compiler Bug?

I found a Bug of Delphi XE3 Compiler,It may exists in XE4,XE5.

Here is the code to show the bug

procedure Test;overload;

begin

  ShowMessage('procedure Test;');

end;



procedure Test(Value:Integer);overload;

begin

  if Value=1 then ShowMessage('procedure Test(Value:Integer);');

end;



var

  T:procedure(Value:Integer);

procedure TForm1.FormCreate(Sender:TObject);

begin

  T:=@Test;

  T(1);

end;

 We expect The results is "procedure Test(Value:Integer);",

but it shows "procedure Test;"

 

我们期待的结果应该是显示"procedure Test(Value:Integer);"

实际上显示的是"procedure Test;"

哪位帮忙在xe4，xe5上测试下，是否还存在此bug

谁有embarcadero的账号，请到qc提交。