SelectAll

procedure SelectAll 

Выделяет весь текст в элементе управления редактированием.