Код

	 OleBase:=Ole1CBase.CreateObject('Справочник.Номенклатура'); //6
		  OleBase1:=Ole1CBase.CreateObject('Справочник.Номенклатура'); //6
		OleTorg:=Ole1CTorg.CreateObject('Справочник.Номенклатура'); //6

				//	end
				    //	finally
				    //	begin
//ListBox1.Items.Add('Ошибка');
//Application.ProcessMessages;
//end   ;




     i := 0;
	     strStatus.Caption := 'Выполняется проверка элементов';
  OleTorg.selectitems(1); //Открываем выборку элементов справочника
  while OleTorg.GetItem(1)>0 do //Выбираем все элементы
  begin



  AutoRunScan := 0;
	i := i +1;
			   if Stop = 1 then
			   begin
			     Stop := 0;
				    AutoRunScan := 1;
					  Break;

				     end;



  StatusBar1.SimpleText := OleTorg.Description ;
  Application.ProcessMessages;


   Prodolit := 1;
for r := 0  to IgnorList.Lines.Count -1  do
begin
if Pos(IgnorList.Lines.Strings[r],OleTorg.FullDescr) <> 0 then
 Prodolit := 0;

end;
if Prodolit = 1 then
begin






  if OleTorg.IsGroup = 1 then  //Если это группа
    begin

     if OleBase.FindByCode(OleTorg.FullCode,2) = 0 then	//Такой группы нет в базе.
	     begin

	     if OleTorg.Level > 1  then
		   begin

		     if OleBase.FindByCode(OleTorg.Parent.Code,0) = 1 then
			 begin
			  OleBase.UseParent(OleBase);
			  OleBase.NewGroup;
			  OleBase.Code := OleTorg.Code;
			  OleBase.Description := OleTorg.Description;
			  OleBase.Write;
			  ListBox1.Items.Add('Новая группа: ' + OleTorg.FullDescr) ;
			  end;

		   end
		   else
		   begin
			 OleBase.UseParent('');
			 OleBase.NewGroup;
			 OleBase.Code := OleTorg.Code;
			 OleBase.Description := OleTorg.Description;
			 OleBase.Write;
			 ListBox1.Items.Add('Новая группа: ' + OleTorg.FullDescr) ;
		   end;  //Это первый лвл??

		end;   //Это поиск группы

		   end; //Это группа?
		   // break;
		  //   Break;
end
			  end; //Перебор элементов


	   AdvProgressBar1.Max := i;
	  AdvProgressBar1.Position := 0;
		strStatus.Caption := 'Выполняется синхронизация элементов';
  OleTorg.selectitems(1); //Открываем выборку элементов справочника
  while OleTorg.GetItem(1)>0 do //Выбираем все элементы
  begin
	    AutoRunScan := 0;
   AdvProgressBar1.Position := AdvProgressBar1.Position +1;
			   if Stop = 1 then
			   begin
			     Stop := 0;
			     Break;
					 AutoRunScan := 1;
			   end;



  StatusBar1.SimpleText := OleTorg.Description ;
  Application.ProcessMessages;



    Prodolit := 1;
for r := 0  to IgnorList.Lines.Count -1  do
begin
if Pos(IgnorList.Lines.Strings[r],OleTorg.FullDescr) <> 0 then
 Prodolit := 0;

end;
if Prodolit = 1 then
begin





  if OleTorg.IsGroup = 0 then  //Если это группа
    begin
		 Code :=  OleTorg.Code;
     if OleBase.FindByCode(Code,0) = 1 then	//Такой элемента нет в базе.
	     begin

		    if    OleBase.Description <> OleTorg.Description then
			 begin
			   ListBox1.Items.Add('Переименованили элемент: ' + OleBase.Description + ' => ' + OleTorg.Description) ;
			  OleBase.Description := OleTorg.Description;
				OleBase.Write;
			 end;



	  if OleTorg.Level > 1 then
		  begin
			  Code :=  OleTorg.Parent.Code;
		     if OleBase1.FindByCode(Code,0) = 1 then
			 begin
			 if OleBase1.Level > 1 then
			 begin
			 Code1 :=  VarToStr(OleTorg.Parent.FullCode);
			 Code2 :=  VarToStr(OleBase.Parent.FullCode);

			   if   Code1 <>  Code2 then
			   begin
			   try

			     begin

				   ListBox1.Items.Add('Переместили элемент:  (было) ' + OleBase.Code + ' '  + OleBase.FullDescr) ;
				   ListBox1.Items.Add('Переместили элемент: (стало) ' + OleTorg.Code + ' ' + OleTorg.FullDescr) ;



			     OleBase.Parent := OleBase1;
				 OleBase.Write;
				  end
				   finally
				   begin
				    Ole1CBase := Unassigned;
				    Ole1CTorg := Unassigned;
				    Ole1CTorg := '';
				    Ole1CBase := '';

				   end


			   end;

			   end;

			 end;





			  end;
		  end;





		end
else