Вот простейшая процедура рисования полоски прогресса.
Полоска рисуется внизу экрана. При n = 0 рисуется рамка вокруг полоски, последующие значения - проценты выполнения. Пример взят из исходного кода SHD.
procedure OnLoad(n: integer);
begin
if n=0
then
begin
SetColor(0,0,0); FillRect(1,GetHeight-7,GetWidth-2,6); SetColor(192,192,192); DrawRect(1,GetHeight-7,GetWidth-3,5); Repaint;
end;
else
begin
FillRect(3,GetHeight-5,(GetWidth-5)*n/100,2); Repaint;
end;
end;