Indice incorrecto

[VolaRe]

Hola,
haber si alguien me puede explicar porque este codigo, despues de correr, me indica "indice incorrecto". Este el el codigo:

var
  Cadena : String;
  J, I : Integer;
begin
  OpenDialog1.Title := 'Borrar dia ...';
  If OpenDialog1.Execute Then
   begin
   I := Pos(',',OpenDialog1.FileName) - 3;
   Cadena := Copy(OpenDialog1.FileName,I,20);
   Label2.Caption := Cadena;
   If MessageDlg('Estas a punto de borrar un dia, ¡estas seguro!',mtConfirmation,
   [mbYes,mbNo],0) = IdYes Then
    For J := 0 To TreeView1.Items.Count - 1 Do
     If (Cadena = TreeView1.Items[J].Text) Then
      Begin
      DeleteFile(OpenDialog1.FileName);
      TreeView1.Items[J].Selected := True;
      TreeView1.Selected.Delete;
      MessageDlg('El archivo ha sido borrado con exito',mtInformation,[mbOk],0)
      End;
   end;
end;

Exactamente, me corre el codigo perfectamente, pero cuando acaba y borro el archivo deseado me indica "Incorrecto indice", y me indica esta sentencia If (Cadena = TreeView1.Items[J].Text) Then.

Alguien me puede explicar porque, porque no lo entiendo, gracias de antemano