I wrote text by keyboard in SynEdit1 and if paste text
by SelText := 'text', for example:
procedure TForm1.SynEdit1DragDrop(Sender, Source:
TObject; X, Y: Integer);
begin
SynEdit1.SelText := 'text';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SynEdit1.SelText := 'text';
end;
and try undo (once ctrl+z) rollback 'text' and last
word printed from keyboard.