Получить список открытых окон программ

BOOL EnumWindowsProc(HWND hWnd, long lParam)
{
  wchar_t Buff[255], NameOfClass[255]; // char - для ВСВ6
  GetWindowText(hWnd, Buff, 254);
  GetClassName(hWnd, NameOfClass, 254);  // clasa
  Form1->ListBox1->Items->Add(AnsiString(Buff) + " ("+AnsiString(NameOfClass) + ")" );
  return TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form1->ListBox1->Clear();
  EnumWindows((WNDENUMPROC)EnumWindowsProc, 0);
}

TStringList *list = new StringList;
list->Add(AnsiString(Buff) + " ("+AnsiString(NameOfClass) + ")" );

delete list;
list = NULL;

for (int i=0; i <= list->Count-1; i++) {...}

//получил список в listbox
//сработал таймер:
for
{
     for 
        {
         if (StrPos(...)) {...}
         }
}
//очистил всё

for (int i = 0; i <= 100; i++) {
  for (i = 10; i <= 90; i++) { ... }
}

for (int i = 0; i <= 100; i++) {
  for (int j = 10; j <= 90; j++) { ... }
}

(TApplication)
 (tooltips_class32)
 (tooltips_class32)
 (tooltips_class32)