TStringList.Move(i, i)
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/rtl/objpas/classes/stringl.inc#L1474
we miss check that CurIndex<>NewIndex.
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/rtl/objpas/classes/stringl.inc#L1474
we miss check that CurIndex<>NewIndex.