Не содержать вывод на страницу внутри цикла. Подробности - на форуме по данном unit, task 0.
Если предыдущий пункт выполнен - то при повторном вызове функции (нажатии на кнопку) не происходит дубляжа вывода, без каких либо действий с вашей стороны в программе.
