procedure TForm12.abfThreadComponent1Execute(Sender: TObject);
var lst_:TStringList; t1:INteger;

function get_node(index_:INteger):TTreeNode;
var s1:String; i2:Integer;
begin
result:=nil;
case index_ of
   0:s1:='Encyclopedia';
   2:s1:='Multimedia Gallery';
   3:s1:='Dictionary';
   5:s1:='Books Section';
   6:s1:='News';
   7:s1:='Quotations';
   8:s1:='Sources';
   9:s1:='Spices';
end;
for i2:=0 to tree1.Items.Count-1 do
   if tree1.Items.Item[i2].text=s1 then result:=tree1.Items.Item[i2];
end;
begin try
screen.Cursor :=crHourGlass;
lst_:=TStringList.Create;
form2.fav_.ReadSections(lst_);
if lst_.Count =0 then begin
   screen.Cursor :=crDefault;
   exit;
end;
for t1:=0 to lst_.Count-1 do begin
   with Tree1.Items.AddChild(get_node(form2.fav_.ReadInteger(lst_.Strings[t1],'PageIndex',0)),form2.fav_.ReadString(lst_.Strings[t1],'SNAME','')) do begin
      ImageIndex:=20;
      SelectedIndex:=20;
      url_.Add(lst_.Strings[t1]);
      ref_.Add(form2.fav_.ReadString(lst_.Strings[t1],'SNAME',''));
   end
end;
screen.Cursor :=crDefault;
except
screen.Cursor :=crDefault;
end;End;