Программирование Delphi

При помощи WinApi (SendMessage) создаем ProgressBar на форме с указанными координатами и размерами, также создадим таймер, который будет двигать ProgressBar.