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