Отображение файлов по расширениям в ShellListView

[artemavd]

Не знал как правильно назвать тему. Суть в следующем. Есть код:

procedure TForm1.ShellListView2AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd:=AFolder.IsFolder  or (ExtractFileExt(AFolder.PathName) = '.pdf');
end;

Данный код отображает только файлы pdf. Вопрос в следующем: как поместить данный код в кнопку? Я в дальнейшем хочу указывать расширение из ComboBox-a. Например так:

procedure TForm1.ShellListView2AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd:=AFolder.IsFolder  or (ExtractFileExt(AFolder.PathName) = Form1.ComboBox1.Text);
end;

[Alex Cones]

procedure TForm1.Button1Click(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd:=AFolder.IsFolder  or (ExtractFileExt(AFolder.PathName) = Form1.ComboBox1.Text);
end;

Так не подойдет?
И в заголовке исправьте кол-во параметров:

type
  TForm1 = class(TForm)
    ...
    Button1: TButton;
    procedure Button1Click(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[Stilet]

artemavd

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd:=AFolder.IsFolder  or (ExtractFileExt(AFolder.PathName) = Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellListView1.Refresh;
end;

Увидел идею?

Alex Cones

Что это за ерунда? Неужто работает?

[artemavd]

Неужто работает?

Неа, у меня не работает

Увидел идею?

Да, только после закрытия программы вылетает AccessViolation почему-т..