1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Function EnumWindowsToStrings (aStrings: tStrings): Boolean;

    Function EnumWindowsProc (aHandle: HWND; aList: tStrings): Bool; stdcall; export;
    Var
      Title: Array[0..255] Of Char;
    Begin
      EnumWindowsProc := True;
      If GetWindowText (aHandle, @Title, 255) > 0 Then
        If IsWindowVisible (aHandle) And (String (Title) <> '') Then
          If aList.Add (String (Title)) = -1 Then
            ;
    End;

Begin
  EnumWindowsToStrings := False;

  Assert (Assigned (aStrings));
  If Not Assigned (aStrings) Then
    Exit;

  aStrings.BeginUpdate;
  Try
    If Not EnumWindows (@EnumWindowsProc, Integer (aStrings)) Then
      Exit;
  Finally
    aStrings.EndUpdate;
  End;

  EnumWindowsToStrings := True;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Procedure tTestThread.Execute;
Var
  SL: tStringList;
Begin
  fStop := False;

  SL := tStringList.Create;
  Try

    {...}

        SL.Clear;
        If EnumWindowsToStrings (SL) Then
          ;

    {...}

  Finally
    SL.Free;
  End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var T:TTestThread;
begin
  T:=TTestThread.Create(True);
  T.FreeOnTerminate:=True;
  T.Resume;
end;

{ TTestThread }

Procedure tTestThread.Execute;
Var
  SL: tStringList;
Begin
  SL := tStringList.Create;
  Try
    SL.Clear;
    EnumWindowsToStrings (SL);
  Finally
    SL.Free;
  End;
End;