procedure TForm4.SpeedButton11Click(Sender: TObject);
begin try
Editor.Undo;
except end;End;