Переименование в TreeView

[selpia]

Нужно сделать так, чтобы по щелчку пункта меню можно было переименовать узлы TreeView определенного уровня вложенности. Переименование остальных запрещено.
Делаю так: в TreeView изначально ставлю для ReadOnly значение true, затем прописываю в обработчике:

   if TreeCompanies.Selected.Level <> 1 then exit;
   TreeView1.ReadOnly:=false;
   TreeView1.Selected.EditText;
   TreeView1.ReadOnly:=true;

Узлы не переименовываются Если убрать последнюю строчку, то все хорошо, пользователь может вводить новое имя, но тогда после все узлы становятся доступными для переименования, что нежелательно... Буду очень благодарна, если кто-нибудь подскажет решение

[WhiteSpirit]

Ну конечно, не переименовываются, ты же запрещаешь изменения сразу после разрешения ))
Напиши в событии TreeView1.OnChange

TreeView1.ReadOnly:=True;

[selpia]

Ой, спасибо) Просто писалось ночью и отчего-то в голове стукнуло, что после разрешения на редактирование должно автоматически генерироваться событие)))