Переделать логику в цикле

[Dozent]

здраствуйте помогите с формированием цикла!
Есть строка, есть символ в этой строке который встречается N раз

    temp:=SqlText;
    While Pos(':', temp)>0 do
      begin
        showmessage('');
        delete(temp, Pos(':', temp), 1);
      end;

в той строке с которой работаю подстрока встречается 4 раза, месаг же выводится 5 раз, как сделат ьтак чтобы колличество итераций цикла была равна колличеству раз встречаемой подстроки?

[Dozent]

ой ой ой как я сильно затупил, прастите всё норм.....

[BDA]

Имхо, с логикой все в порядке.
Может все-таки 5 раз встречается?
Или showmessage другой?
Вы в showmessage пишите какой-либо отличительный текст, или саму строку показывайте (тогда переместите showmessage после удаления).

ПС не успел

[Dozent]

да я првоерил ) счётчик добавил, 4 раза