uses
  ShlObj;

function SelectCompName: String;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  ComputerName: array[ 0 ..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK, ItemIDList);
  FillChar(BrowseInfo, SizeOf(BrowseInfo),  0 );
  BrowseInfo.hwndOwner := Application.Handle;
  BrowseInfo.pidlRoot := ItemIDList;
  BrowseInfo.pszDisplayName := ComputerName;
  BrowseInfo.lpszTitle := PChar('Выбрать компьютер');
  BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
  if SHBrowseForFolder(BrowseInfo) <> nil then
    Result := ComputerName
  else
    Result := '';
end;