procedure TForm2.N36Click(Sender: TObject);
var t3:Integer;
begin try
if Sender<>nil then play_snd(1);
case NoteBook1.PageIndex of
   0:begin
         fav_.WriteInteger(form2.wikipedia_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikipedia_console.LocationURL,'SNAME',wikipedia_console.LocationName );
     end;
   2:begin
         fav_.WriteInteger(form2.wikimedia_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikimedia_console.LocationURL,'SNAME',wikimedia_console.LocationName );
     end;
   3:begin
         fav_.WriteInteger(form2.wikidict_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikidict_console.LocationURL,'SNAME',wikidict_console.LocationName );
     end;
   5:begin
         fav_.WriteInteger(form2.wikibooks_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikibooks_console.LocationURL,'SNAME',wikibooks_console.LocationName );
     end;
   6:begin
         fav_.WriteInteger(form2.wikinews_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikinews_console.LocationURL,'SNAME',wikinews_console.LocationName );
     end;
   7:begin
         fav_.WriteInteger(form2.Wikiquote_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.Wikiquote_console.LocationURL,'SNAME',Wikiquote_console.LocationName );
     end;
   8:begin
         fav_.WriteInteger(form2.wikisource_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikisource_console.LocationURL,'SNAME',wikisource_console.LocationName );
     end;
   9:begin
         fav_.WriteInteger(form2.wikispices_console.LocationURL,'PageIndex',NoteBook1.PageIndex);
         fav_.WriteString(form2.wikispices_console.LocationURL,'SNAME',wikispices_console.LocationName );
     end;
end;
for t3:=3 to 10 do fav_con1.Items.Items[t3].Clear;
run_fav_loader1.Execute;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'CA56800');
end;End;