procedure ClearSelection 

Стирает часть текста, выделенную в данный момент.