procedure TForm4.SpeedButton10Click(Sender: TObject);
begin try
Editor.CutToClipboard;
except end;End;