procedure Clear 

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