Я понял в чем ошибка была) В скрипте имеется procedure enchant;, в эту процедуру не передается значение переменной buf, надо использовать procedure enchant(Sender: TObject); чтобы значение передавалось(поправил пост с конечным скриптом).
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber
|