странная ошибка с ShowMessage

[UMmi]

Есть процедура, в теле которой в некотором случае (если одна переменная = 0) должно выводится:
ShowMessage('15');
Все выводится, но я жму на кнопке ок на сообщении, оно мигает, но не исчезает... Т.е. по сути дела продолжение программы не возможно. Ребята, как это исправить?

[Alar]

возможно прочто в цикле это, переменная 0, сообщение появляеться заново... вообще нужен код.

[UMmi]

Сообщение от Alar

возможно прочто в цикле это, переменная 0, сообщение появляеться заново... вообще нужен код.

procedure zap_my;
var i,j,k,s,dalwe,f,str_mem : integer;
p :boolean;
begin
my[1,1]:=0;
for i:=2 to PixList.Count do
  my[1,i]:=10;
  
for j:=2 to PixList.Count do// заполняем столбцы j матрицы my
 for i:=1 to PixList.Count do //идем по строкам
 begin
 if i=1 then //если заполняем первую строку (матрицы my)
  begin
   s:=min(sum(mc[1, 1],my[j-1,1]), sum(mc[2, 1], my[j-1,2]));
   for k:=2 to pixList.Count-1 do s:=min(s, sum(mc[k+1, 1], my[j-1,k+1]));
   my[j,1]:=0;// min(0, s);
  end else 
   begin
    s:=min(sum(mc[1, i],my[j-1,1]), sum(mc[2, i],my[j-1,2]));
    for k:=2 to pixList.Count-1 do s:=min(s, sum(mc[k+1, i], my[j-1,k+1]));
    my[j,i]:=s;
   end;{else}
 end;
dalwe:=1;
if my[PixList.Count, pytdo]=10 then
  ShowMessage('15');

[oLMeR]

может процедура просто кучу раз выполняется? посмотри как ты ее вызываешь.