Проблема с рандомом в Delphi

Question

Как в ProgressBar сделать вот типо такого??? ?

Randomize;

ProgressBar1.Position := ProgressBar1.Position +2..+6;

if ProgressBar1.Position = ProgressBar1.Max then

ProgressBar1.Position := ProgressBar1.Position(Random(5) + 2);Ошибка. Что не так?

Nyo · Accepted Answer

+2..+6 заменить на Random(5) + 2; и 
if ProgressBar1.Position = ProgressBar1.Max then
на
if ProgressBar1.Position >= ProgressBar1.Max then
чтоб наверняка