rename снова не работает

[maloun]

Здравствуйте у меня тут как всегда ListBox в котором отображены папки моего диска C:\ и кнопка Rename которая создаёт на месте выделеной строки листбокса динамический Edit и после нажатия в нём кнопки ентер меняет имя той папки, которая была выделена до переименования
А теперь вопрос)
Когда я пытаюсь переименовать папку и в папке в которой она лежит ещё другие папки, переименовывается папка которую я переименовывал
и ШОК! Имя первой меняетсмя на старое имя той которую переименовал я не знаю как я это сделал))) может вы поймёте...

проект я приклеил

[asmodey1]

Вы весьма вольно обращаетесь с индексными переменными. Кроме того, похоже, вы не видите разницы между глобальными и локальными переменными.
Поставьте бряку на выделенную красным строку и посмотрите, что вы "переименовываете" :

procedure TForm1.ListEditKeyPress(Sender: TObject; var Key: Char);
var
ii: Integer;
begin
if Key = #13 then
begin
RenameFile(Edit1.text+ListBox1.Items.Strings[ii],Edit1.text+ListEdit.Text);
ListEdit.Visible:=False;
Button3Click(Sender);
end;
end;

[maloun]

ну теперь работает)))
я полный идиот, даже стыдно стало,
спасибо вам.