Indice incorrecto

[jplj]

Prueba a realizar el bucle en sentido inverso, es decir, empenzado por el último elemento.

[__cadetill]

Bueno, puedes probar tambien lo que comenta jplj, es decir

for j := TreeView1.Items.Count - 1 downto 0 to

o bien con el while que te comentaba

J := 0;
while J <= TreeView1.Items.Count - 1 do
begin
  if (Cadena = TreeView1.Items[J].Text) Then
  begin
    DeleteFile(OpenDialog1.FileName);
    TreeView1.Items[J].Delete;
    MessageDlg('El archivo ha sido borrado con exito',mtInformation,[mbOk],0);
  end
  else
    inc(J);
end;

La diferencia del while con el for, es que cada iteración se evalua la expresión y, aunque borres un Item, al evaluarse la expresión sabrá si continuar o no. Fíjate que sólo se ha de incrementar el contador J si no se borra ningún Item

[VolaRe]

Muchas gracias a los dos.

Como habreis comprovado soy un pardillo en esto, asi que no sabeis los quebraderos de cabeza que tenia ya con esto, gracias nuevamente

[VolaRe]

Empezado por jplj

Prueba a realizar el bucle en sentido inverso, es decir, empenzado por el último elemento.

gracias jplj por tu consejo, va a la perfeccion