[[seoane]]

Pues en donde pone:

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

Puedes poner:

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

Aunque como cabe esperar esto hará que la búsqueda sea mas lenta.