Hola annieruci, prueba de esta forma:
Código Delphi
[-]
for i:= TreeView1.SelectionCount-1 downto 0 do
begin
TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
TreeView1.Selections[i].Delete;
end;
No necesitas recorrer todo el treview para encontrar los seleccionados.
Saluditos