[Delphi] FileListbox i zmiana nazwy

Witam
Hymm..
FileListBox i zmiana nazwy
Jak zmienić nazwę pliku zaznaczając go w FileListBox i wpisując nową nazwę w Edit.

Pozdrow From Lusio

Hmmm

var nowanazwa,staranazwa:string;
       i:integer;
begin
i:=FileListBox1.ItemIndex;
nowanazwa:=Edit1.Text;
staranazwa:=FileListbox1.Items.strings[i];
FileListBox1.Items.Strings[i]:=nowanazwa;
RenameFile(staranazwa,nowanazwa);
end;