Micheus, boa tarde! Cliquei no link que você me enviou e achei o código fonte abaixo: procedure TForm1.FormCreate(Sender: TObject); var i: integer; vlDomainName : Array[0..30] of Char; vlSize : ^DWORD; begin New(vlSize); vlSize^ := 30; ExpandEnvironmentStrings(PChar('%USERDOMAIN%'), vlDomainName, vlSize^); Dispose(vlSize); Label1.Caption := 'Network Domain Name: ' +vlDomainName; //OutPut the Domain we are connected to end; Este código fonte atendeu perfeitamente as minhas necessidades, muito obrigado por sua ajuda! Abraços! Uellington Santos