[vladpol1]

Пожалуйста без Delay, конечно было верней поставить Flip для отображения прогресса

 
;зогрузко
Graphics 640,480,0,2
fArial=LoadFont("Arial",24,1,1)
SetFont fArial 
Color 250,170,190: Text 310,250,"З  А  Г  Р  У  З  К  А",True 

Color 70,40,70: Rect 45,210,555,35,1
Const pr=25

For n=50 To 575 Step pr
    Color 255,200,130: Rect n,215,20,25,1
        Local a=n/pr
            gr1=LoadImage("C:\gr\"+a+".jpg")
            gr2=LoadImage("C:\gr\"+a+1+".jpg")
            gr3=LoadImage("C:\gr\"+a+2+".jpg")
            gr4=LoadImage("C:\gr\"+a+3+".jpg")
            gr5=LoadImage("C:\gr\"+a+4+".jpg")        
        Flip
Next
Color 250,170,190: Text 310,275,"З А В Е Р Ш Е Н А",True 
Text 310,300,"нажмите любую клавишу",True
WaitKey ()