procedure TForm12.FlatButton1Click(Sender: TObject);
begin try
if FlatButton2.Enabled then begin
   if MsgBox(Application.Title,'Remove '#13#13#10'"'+tree1.Selected.Text+'" '#10#13#13'from your favorite list ? ',1,0)=6 then begin
      form2.fav_.EraseSection(hint);
      url_.Delete(ref_.IndexOf(tree1.Selected.Text));
      ref_.Delete(ref_.IndexOf(tree1.Selected.Text));
      Tree1.Items.Delete(tree1.Selected);
   end;
end;
except end;End;