procedure TForm4.EditorChange(Sender: TObject);
begin try
bool_:=true;
SpeedButton11.Enabled := Editor.CanUndo;
SpeedButton12.Enabled := Editor.CanRedo;
SpeedButton9.Enabled := Editor.CanPaste;
Undo1.Enabled := Editor.CanUndo;
Reso1.Enabled := Editor.CanRedo;
Paste1.Enabled := Editor.CanPaste;
Button3.Enabled :=((SpeedButton13.Enabled)and(Editor.Lines.Count>0));
Button1.Enabled :=(Editor.Lines.Count>0);
except end;End;