замени:
Код:
for i := 0 to TreeView1.Items.Count-1 do
на:
Код:
for i := 0 to TreeView_GetCount(TreeView1.Handle)-1 do
в uses добавь CommCtrl.
либо на:
Код:
TreeView1.HandleNeeded;
for i := 0 to TreeView1.Items.Count-1 do
при вызове "Сменить пользователя" и вход им же (всего один пользователь на компьютере) эффекта не наблюдается. но код:
Код:
TreeView1.Parent:=nil;
TreeView1.Parent:=Self;
вызывает эффект. приведенные выше изменения решили проблему. косяк в VCL.