Не работает функция ReNameFile

[maloun]

Здравствуйте.
Тут на форме есть груп бокс, на котором лист бокс, на котором создаётся динамический едит, в процедуре keyPrees которого не работает функция RenameFile. Проблема в том, что эта функция работает везде кроме этой процедуры.
Вот к примеру создаю на диске C:\ папку 123 создаю кнопку в которой пишу RenameFile(Edit1.text+ListBox1.Item s.text,Edit1.text+ListEdit.Text);
ListEdit это едит который я создал скриптом, вот на это скрипт вообще не реагирует, а если я поставлю вместо ListEdit любое другое текстовое поле которое создано не скриптом, он переименует, хотя он видит текст в ListEdit. Он видя этот текс не переименовывает!

[vovk]

могу обьяснить почему, ListBox1.Items.text даёт вам весь текст из ListBox1
включая #10 #13 которые есть в конце, то есть такого файла который вы хотите периеновать просто нет.

Как вариант на вскидку= при нажатии "переименовать" сохраняем в глобальную переменную номер итема

var
     ListEdit:TEdit;
  Form1: TForm1;
  n_item:integer;

procedure TForm1.Rename1Click(Sender: TObject);
var
ii : integer;
lRect: TRect;
begin
ii := ListBox1.ItemIndex;
if ii=-1 then Exit else
if ListBox1.Selected[ListBox1.ItemIndex]<>false then
n_item:= listBox1.ItemIndex;
lRect := ListBox1.ItemRect(ii) ;
ListEdit.Top := lRect.Top + 1;
ListEdit.Left := lRect.Left + 1;
ListEdit.Height := (lRect.Bottom - lRect.Top) + 1;
ListEdit.Text := ListBox1.Items.Strings[ii];
ListBox1.Selected[ii] := False;
ListEdit.Visible := True;
ListEdit.SelectAll;
ListEdit.SetFocus;
end;

а потом используем текст из этого элемента списка в процедуре

procedure TForm1.ListEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
if RenameFile(Edit1.text+ListBox1.Items.Strings[n_item],Edit1.text+ListEdit.Text) then //функция всёже и значение возвращает, почему же не использовать
showmessage('переименовл кажется'+#13+'это '+Edit1.text+ListBox1.Items.Strings[n_item]+'в это '+Edit1.text+ListEdit.Text);
ListEdit.Visible:=False;
//Key:=#0;// а это зачем?
end;
end;

[maloun]

Спасибо, не знал что всё так просто