#33 undo work strange after pasting text SelText := 'text'

[Zhuravloyv Denis]

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.