ShellTreeView FILTER ?!

[Tommy1988]

folgendes habe ich probiert, das klappt ÜBERHAUPT nicht mit der FilterComboBox!

Es wird immer das selbe im ShellTreeView angezeigt!
http://delphi.about.com/b/a/257631.htm

Wie kann ich einer ShellTreeView sagen, es soll nur z.b. textdateien anzeigen?
Mein Code:

Delphi-Quellcode:

procedure TForm3.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
var
   maskExt : string;
   fileExt : string;
begin
   maskExt := ExtractFileExt(FilterComboBox1.Mask) ;

   if maskExt = '*.*' then
   begin
     CanAdd := true;
     Exit;
   end;

   fileExt := ExtractFileExt(AFolder.DisplayName) ;

   CanAdd := AFolder.IsFolder OR (CompareText(maskExt,fileExt) = 0) ;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
   ShellTreeView1.ObjectTypes := [otNonFolders]
   + ShellTreeView1.ObjectTypes;
end;

procedure TForm3.FilterComboBox1Change(Sender: TObject);
begin
ShellTreeView1.Refresh(ShellTreeView1.Items.GetFirstNode);
end;