Pues a mí me funciona de esta forma, obtengo el usuario y luego le pregunta a mi base de datos los permisos que debe tener en mi aplicación.
SUERTE
Código:
function UsuarioActual : String;
var
Usuario : String;
K : Cardinal;
begin
try
K := 255;
Setlength(Usuario,256);
Getusername(pchar(Usuario),K);
Setlength(Usuario,Strlen(pchar(Usuario)));
Result := Usuario;
except
Result := '';
end;
end;