procedure TForm2.oxGraphicButton1Click(Sender: TObject);
var tstr,address:String;
begin try
SetPriorityClass(GetCurrentProcess,high_p);
if Trim(FlatComboBox1.Text) ='' then exit;
if (Sender = oxGraphicButton1)or(Sender = OHHotLabel3) then play_snd(1);
if (self.Notebook1.PageIndex=1)or(self.Notebook1.PageIndex=4)or(self.Notebook1.PageIndex=10) then self.Notebook1.PageIndex:=0;

if self.Notebook1.PageIndex<>1 then begin
   tstr:=Trim(FlatComboBox1.Text);
   add_to_search_index(tstr);
end;

if self.Notebook1.PageIndex=0 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wikipedia.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikipedia_console.Busy then wikipedia_console.Stop;
   wikipedia_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=2 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wikimedia.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikimedia_console.Busy then wikimedia_console.Stop;
   wikimedia_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=3 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wiktionary.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikidict_console.Busy then wikidict_console.Stop;
   wikidict_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=5 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wikibooks.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikibooks_console.Busy then wikibooks_console.Stop;
   wikibooks_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=6 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wikinews.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikinews_console.Busy then wikinews_console.Stop;
   wikinews_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=7 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','Wikiquote.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if Wikiquote_console.Busy then Wikiquote_console.Stop;
   Wikiquote_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=8 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','wikisource.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikisource_console.Busy then wikisource_console.Stop;
   wikisource_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

if self.Notebook1.PageIndex=9 then begin
   StrReplace(tstr,' ','_',[rfIgnoreCase, rfReplaceAll]);
   address:=get_ini_params('wikis','species.wikimedia.search');
   StrReplace(address,'%key%',tstr,[rfIgnoreCase, rfReplaceAll]);
   if wikispices_console.Busy then wikispices_console.Stop;
   wikispices_console.Go(address);
   FlatComboBox1.Items.LoadFromFile(get_search_list);
end;

except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'SearchButton_Tool_Click');
end;End;