Delphi 获取本机登录用户名

Delphi 获取本机登录用户名，Delphi11.3 / Delphi12编译通过

function Get_UserName:String;
var
  userName: array[0..255] of Char;
  domainName: array[0..255] of Char;
  userSize: DWORD;
  domainSize: DWORD;
begin
  userSize := SizeOf(userName);
  domainSize := SizeOf(domainName);
  if GetUserName(userName, userSize) and GetComputerName(domainName, domainSize) then
    Result := userName
  else
    Result := '';
end;