TreeView zaznaczanie itema i wszystkich subitemów

Bardzo się cieszę, że moderatorzy umieją przenosić tematy do kosza. Tym bardziej się ciesze, że nie znalazłem takiego tematu ani na forum ani w FAQ. Brawa dla was!

A teraz przejdźmy do rzeczy mam komponent TreeView w którym jest Item i Subitem. Każde z nich normalnie zaznacza się osobno. Ja muszę zrobić żeby Item i wszystkie SubItemy zawarte w nim były zaznaczane podczas jednego kliknięcia. Prosze o pomoc...

<font size="1">// bardzo się cieszę, że chciałeś szukać, ale temat wątku jaki wybrałeś kwalifikował go do kosza. Poprawiłem - Ktos</span>

procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
    T:TTreeNode;
    L:TList;
begin
L:=TList.Create;//tworzymy liste
T:=TreeView1.Items[0];//wyznaczamy, ktory item i jego subitemy maja byc zaznaczone

L.Add(T);//dodajemy do listy itema

For I:=0 to T.Count-1 do
        L.Add(T.Item[i]); //dodajemy do listy wszzystkie poditemy...

TreeView1.Select(L);//zaznaczamy wszystkie itemy i subitemy znajdujace sie na liscie
T.Expand(True); //rozwijamy itema, zeby bylo wszystko widac

TreeView1.SetFocus;//zeby ladniej wygladalo
end;