Здравствуйте, Вячеслав Ермолаев, Вы писали:

ВЕ>Был бы рад, но у меня этот код работает без ошибок

Ты читер , а я ламер
Весь код изнасиловал — никак. У меня Builder 6.0 Build 10.157