procedure TForm12.tree1DblClick(Sender: TObject);
begin try
if FlatButton2.Enabled then FlatButton2Click(FlatButton2);
except end;End;