progressbar1.Max:=progressmax; progressbar1.Position:=progress; if progress=progressmax then begin ...///сдесь твои коды) end;