Warum klappt das Label nicht

[sui]

Delphi-Quellcode:

      
function CurrentUserName: String;
var
  u: array[0..127] of Char;
  sz: DWord;
begin
  sz:=SizeOf(u);
  GetUserName(u,sz);
  Result:=u;
  label1.caption :=  CurrentUserName;
end;

Warum zeigt er mir den Namen nicht automatisch an, ohne das ich etwas
klicken muss.

sui