[sanxpue]

haber si te funciona esto compañero :

Function RegresaUsuario : String;
Var
  UsuarioX : Array[0..50] of Char;
  D : LongWord;
Begin	
    D := 50; //el tamaño de tu array
    FillChar(UsuarioX,SizeOf(UsuarioX),#0);
    GetUserName(UsuarioX,D);
End;

Saludos desde Puebla Pue...
[email protected]