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