на Делфи с помощью какой API функции можено передать компаненту ProgressBar данные о процессе копирования файла