procedure Clear 

Очищает содержимое списка и редактора.