тяжело смотреть почему не робит прога смотря чисто на текст. если с переменными не напутал ошибок вроде не видно...
посмотри пример подобной задачи здесь: www.warayg.narod.ru - Programming: Delphi - Иллюстрированный самоучитель по Delphi 7 для профессионалов - Пример создания многопоточного приложения в Delphi