Обновить Directorylistbox?

[Leo20]

Переименовываю директорию в ListView

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: String);
begin
path:=DirectoryListBox1.Directory;
RenameFile(ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + listview1.Selected.Caption,
ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + s);
DirectoryListBox1.Repaint;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
if listView1.Selected <> nil then
begin
listview1.Selected.EditCaption;
end;

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

Directorylistbox1.Update пробовал, ошибку выдает
refresh вроде как вообще не то.

[mihali4]

Directorylistbox1.Update пробовал, ошибку выдает

Какую ошибку? Или нам нужно гадать на кофейной гуще?

В стандартном хэлпе есть простой пример:

The following sample code sets the directory of DirectoryListBox1 to C:\TEMP when the form is created. When Button1 is pressed, a subdirectory called MYDIR is added to C:\TEMP, but note that it is not updated in DirectoryListBox1 until Button2 is pressed and Update is called.

procedure TForm1.Button1Click(Sender: TObject);

begin
  MkDir('c:\temp\mydir');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox1.Directory := 'c:\temp';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DirectoryListBox1.Update;
end;

Что тут может не получаться?

[Baaandit]

Может бред))- но я так писал,когда удалял файлы которые отображает filelistbox1.
S-была текущая директория программы.

filelistbox1.Directory:=S+'/'+papka;