procedure TForm2.param_loaderTimer(Sender: TObject);
begin try   //for 1st time startup
param_loader.Enabled :=false;
if StrFind('?',ParamStr(1))>0 then begin
if lowercase(ParamStr(1))='?wikipedia' then form2.EncyclopediaStartPage1Click(form2.EncyclopediaStartPage1);
if lowercase(ParamStr(1))='?wikimedia' then form2.MultimediaStartPage1Click(form2.MultimediaStartPage1);
if lowercase(ParamStr(1))='?wikidict' then form2.DictionaryStartPage1Click(form2.DictionaryStartPage1);
if lowercase(ParamStr(1))='?wikibooks' then form2.BooksandDocumentsStartPage1Click(form2.BooksandDocumentsStartPage1);
if lowercase(ParamStr(1))='?wikinews' then form2.NewsStartPage1Click(form2.NewsStartPage1);
if lowercase(ParamStr(1))='?wikiquotes' then form2.QuotesStartPage1Click(form2.QuotesStartPage1);
if lowercase(ParamStr(1))='?wikisource' then form2.UncyclopediaStartPage1Click(form2.UncyclopediaStartPage1);
if lowercase(ParamStr(1))='?wikispecies' then form2.UncyclopediaIndex1Click(form2.UncyclopediaIndex1);
exit;
end;
if paramcount>0 then begin
   if StrIsDigit(trim(ParamStr(1))) then notebook1.PageIndex:=StrToInt(ParamStr(1))
   else if Trim(ParamStr(1))<>'' then begin
      FlatComboBox1.TExt:=ParamStr(1);
      oxGraphicButton1Click(oxGraphicButton1);
      exit;
   end;
   if Trim(ParamStr(2))<>'' then begin
      FlatComboBox1.TExt:=ParamStr(2);
      oxGraphicButton1Click(oxGraphicButton1);
   end;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'E20000');
end;End;