Rueckgabewerte von ueberladenen Funktionen?

[DevilsCamp]

Delphi-Quellcode:

function Test(Bla: String): String; overload;
function Test(Bla: String): Integer; overload;

procedure Hallo;
var
  s : String;
  i : Integer;
begin
  s := Test('Hallo');
  i := Test('12345');

  Test('Servus');    // <---- hier sollte der Compiler dann meckern und sonst nicht ;)
end;

Könnten wir uns auf obigen QuellCode einigen?