void TEST (void *)  // функция потока

  {
   Form->ListView->Clear();  //очищаю навсякий случай..
   TListItem  *ListItem ; 
   while( 1 )
      {
       ListItem = Main->ListAllWindows->Items->Add(); // добовляем итэм
       ListItem->Caption = "1";                                 // с таким заголовком
       Sleep( 10000 );                             // посмотрим на это немного, и заново...
      }
  }

void __fastcall TMain::Button2Click(TObject *Sender)
{
_beginthread(TEST, 0 ,NULL); // создаем поток...
}

void WOW ()
  {
   Form->ListView->Clear();  //очищаю навсякий случай..
   TListItem  *ListItem ; 
   .............
.................
..................
   while(ф==ы)    // на это условие while не обращаем внимания
     {
     ListItem = Main->ListAllWindows->Items->Add(); // добовляем итем
     ListItem->Caption = "1";                                 
     }
  }           По выходу у меня палучается список при повторном вызове очищается... и записывается .. без повторений...