Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

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

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