procedure TForm1.FormCreate(Sender: TObject);
var s1:TStringList; ini1:TINiFile; pos1:Integer;
begin try
if self.skin1.SkinFile='' then begin
 self.skin1.SkinFile := root+'System\wikibrowse.skn';
 self.skin1.Active :=true;
end;
tr1.Items.Clear;
with tr1.Items.Add(nil,'WikiResearch') do begin
   ImageIndex:=8;
   selectedIndex:=8;
end;
s1:=TStringList.Create;
ini1:=TINiFile.Create(get_res_profile);
ini1.ReadSections(s1);
ini1.free;
for pos1:= 0 to s1.Count - 1 do begin
   with tr1.Items.AddChild(tr1.Items.Item[0],s1.Strings[pos1]) do begin
   ImageIndex:=9;
   selectedIndex:=9;
   end;
end;
tr1.Items.Item[1].Selected := true;
plugin1.PluginFolder :=root +'Plugins';
plugin1.LoadPlugins;
//timer1.Enabled := true;
JvFormStorage1.RestoreFormPlacement;
except end;End;