ServerBrowser.Computername := 'RemotePC'; ServerBrowser.Execute; //get server list from given Computer for i := 0 to ServerBrowser.Count-1 do //for each server in list begin with ServerBrowser[i] do Memo1.Lines.Add(format('Servername: %s ClassId %s',[ServerName,ServerClsId])); end;