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提交。