Загрузка данных

http://www.cyberforum.ru/pascalabc/thread1220412.html