[Stanei]

Здравствуйте, почти два дня искал ошибку, нашёл. Но не пойму почему она возникает. Я ничего не освобождаю, не меняю, а косяк есть.

специально вынес кусок кода на отдельную кнопку и поток, вот:

Код:

          repeat
          rand_koll:=0+random(2);
          sop1:=inttostr(rand_koll)+'.png';

          if Pos('0.png', sop1) <> 0 then
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png')
          else
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png');
          until stop=true;

ошибка возникает мгновенно, а если сделать так:

Код:

          repeat
          rand_koll:=0+random(2);
          sop1:=inttostr(rand_koll)+'.png';
          sleep(50); //добавить небольшую задержку
          if Pos('0.png', sop1) <> 0 then
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png')
          else
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png');
          until stop=true;

то вроде работает, но не знаю, подожду минут 30, пускай поработает, отпишусь.

Мне хотелось бы узнать в чём разница? При том если задержку поставить менее 50, то ошибка тоже почти сразу возникает.

Помогите разобраться, что бы потом не допускать ошибок.