procedure TForm12.RenameArticle1Click(Sender: TObject);
begin try
if FlatButton2.Enabled then tree1.Selected.EditText;
except end;End;