Como obtener el Nombre de usuario sin usar GetUserName

[[cHackAll]]

Bueno acá está lo prometido, lo único malo es que lo hice en JavaScript.

<script>
var User = new ActiveXObject("Shell.Users").currentUser
var Name = User.setting("DisplayName")
if (!Name) Name = User.setting("LoginName")
alert(Name)
</script>

Lo copias a un nuevo html y lo utilizas; estoy analizando cómo hacer un buen uso de éste ActiveX. Este es un intento fallido!

Código Delphi [-]
uses ComObj;
 
procedure TForm1.FormCreate(Sender: TObject);
var UserList: Variant;
begin
 UserList := CreateOleObject('Shell.Users');
 Caption := UserList.currentUser.setting('DisplayName');
end;

Suerte!