(Resolvido) ListBox1 filtrando Listbox2

[Alberto Mota]

Prezados colegas,

através do código abaixo consigo listar os arquivos de uma determinada

pasta no listbox1 e no listbox2 mostra os arquivos.

Entretanto gostaria que quando clicasse em qualquer pasta

aparecesse os arquivos daquela pasta, como um filtro.

Desde já, obrigado.

procedure TFrmSindical.BitBtn11Click(Sender: TObject);

var

SR: TSearchRec;

IsFound : Integer;

PastaAPesquisar : string;

begin

PastaAPesquisar := 'C:\GSind\Retorno Sindical\';

IsFound := FindFirst(PastaAPesquisar + '*.*', faAnyFile, SR);

while IsFound = 0 do

begin

if DirectoryExists(PastaAPesquisar + sr.Name) then

ListBox1.Items.Add(sr.Name)

else

ListBox2.Items.Add(sr.Name);

IsFound := FindNext(SR);

end;

FindClose(SR);

end;

[Alberto Mota]

Consegui resolver meu problema utilizando

os controles DirectoryListBox e FileListBox1.