Как получить имя текущего пользователя?

function GetCurrentUser: string; 
var 
  pwrec: PPasswordRecord; 
begin 
  pwrec := getpwuid(getuid); 
  Result := pwrec.pw_name; 
end; 

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php