Косяк из-за ProcessMessages

[POV]

Тривиальный код такого типа

Код

      do
   {
               Sleep(unsigned(10));
           ...
               Application->ProcessMessages();
  } while ( ... );

И всё работает. Однако при каких-то там других действиях (ну никак не удаётся поймать каких, отладчик ничего не кажет) выдаётся исключение или вообще "абнормальная ошибка" с закрытием приложения.
Если закомментарить ProcessMessages, то проблем нет, ну тупо ГУЙ подвешивается.

Да, код этот, конечно, в главном потоке крутится.

Шо ж за косяк-то?

[Tantos]

А код полный будет?
Программа в Debug работает, отладка включена?

[POV]

Код

       frmUDP->Text = "";
  do
   {
               Sleep(unsigned(10));
           if (frmUDP->Text != "")
              {
                       l->Delimiter = '#';
                   l->DelimitedText = StringReplace(frmUDP->Text, " ", "*", TReplaceFlags()  rfReplaceAll);;
                      break;
          }
               Application->ProcessMessages();
               cnt1 = GetTickCount();
        } while (cnt1-cnt  1000);
 

l - указатель на TStringList. Является входным параметром процедуры.

Debbug включен, всё работает как надо. Только от это вот радовать начало в неопределённый момент.

[S0mbre]

Такое впечатление, что программа тупо не успевает обработать сообщения. Не пробовал играться с задержкой в Sleep()? И если уж в коде ты используешь GetTickCount(), то можно вообще без Sleep() обойтись.

[Hex]

во первых, почему нет try/catch если все так плохо? заодно бы и точное сообщение о сбое получил бы.
во вторых, наличие "главного потока" подразумевает дополнительные или как? что грузит данные в frmUDP и забирает выхлоп из списка?
похоже _кто-то_ криворукий пишет данные из потока и в момент реалокации строк все и падает.
я прав или я прав?