procedure TForm4.FormCreate(Sender: TObject);
begin try
bool_:=false;
EditorSelectionChange(Sender);
except end;End;