uses Registry;
function GetDeviceName: string;
var
aReg:TRegistry;
begin
aReg := TRegistry.Create(KEY_READ);
try
aReg.RootKey := HKEY_LOCAL_MACHINE;
aReg.OpenKey('Ident', False);
if aReg.ValueExists('Name') then
Result := aReg.ReadString('Name')
else
Result := 'GUEST';
finally
aReg.Free;
end;
end;