Código Delphi [-] if Pos(txtBuscar.Text,Carpetas[i]) > 0 then
if Pos(txtBuscar.Text,Carpetas[i]) > 0 then
Código Delphi [-] if Pos(Uppercase(txtBuscar.Text),Uppercase(Carpetas[i])) > 0 then
if Pos(Uppercase(txtBuscar.Text),Uppercase(Carpetas[i])) > 0 then