TTreeView y MoveTo

[[gluglu]]

Hola Compañeros !

Me pasa una cosa bastante rara y estimo que se trata de un bug de Delphi, al menos en su versión 2006 VCL.Net que es la que estoy utilizando.

He creado un TreeView cualquiera (incluso lo he probado con uno básico especialmente para la prueba que comento a continuación).

Cuando intento hacer una operación de Drag & Drop, que incluye un TreeView.MoveTo, todo funciona perfectamente a la primera. Pero a partir de la segunda operación de Drag&Drop y su consiguiente MoveTo (el error ocurre precisamente en dicha sentencia), me aparece el error : 'Item has already been added. Key in dictionary 'xxxxxxxx' Key been added 'xxxxxxxx' (siendo xxxxxxx un número aleatorio y cambiante, pero igual en la dos posiciones de cada error).

A partir de dicho error, una operación de MoveTo me dá error y la siguiente no, siempre con un intervalo de una operación en medio. Es decir, una operación error y la otra no. Al final el TreeView se corrompe y salen cosas raras.

Lo más significativo que he podido observar es que cuando da el error, el nodo correspondiente a la última operación MoveTo que no dió error, se duplica.

He buscado en Google y todos los datos que obtengo me hacen intuir un problema específico de .Net

Pero no tengo ni idea de como evitarlo o resolverlo.

A lo mejor alguien de vosotros me puede ayudar.

Muchas gracias

Edito : Una vez más lo he probado en Win32 y funciona perfectamente. En cambio en VCL.Net, no.