var
  s:string;
  pw:PWideChar;
  n:dword;
begin
  n := 1024;
  getmem(pw, n); // выделим память под переменную
  GetUserNameW(pw, n); // получим имя юзверя в виде WideChar
  s := WideCharToString(pw); // Преобразуем в нормальный вид
  freemem(pw); // освободим память
  ShowMessage(s); // выведем на экран в нормальном виде
end;