[Delphi] Переименование

[AsyaWill]

Добрый день,пишу файловый менеджер
Необходимо сделать переименование
Пробую так,но выбивает ошибку

procedure TForm1.BitBtn10Click(Sender: TObject);   //переименование файла или каталога
var
    SLV:TShellListView;
    DirName:string;
begin
 if Activepanel=0 then SLV:=ShellListView1 else SLV:=ShellListView2;
    begin
      DirName1:=ExtractFileDir(SLV.SelectedFolder.PathName)+'\'; //здесь ошибка
      ExtName1:=ExtractFileExt(SLV.SelectedFolder.PathName);
      DirName:=InputBox('Переименование', 'Введите название', '');
      RenameFile(PChar(SLV.SelectedFolder.PathName),PChar(DirName+ExtName1+DirName1));
      SLV.Refresh;
    end;
end;

[p51x]

Ну так смотрите значения переменных в отладчике. SLV.SelectedFolder.PathName что-то тут 0.

[Аватар]

SelectedFolder скорее всего nil, проверь )) Он и будет nil если нет выделенного

[AsyaWill]

Не могли бы вы посмотреть?Я вот проверяю,вроде все хорошо

Вот проект.ПОмогите пожулайста,уже не знаю что делать

SelectedFolder скорее всего nil, проверь )) Он и будет nil если нет выделенного

Как же он может быть nil если я выбираю файл выделением.Может не считывать это выделение?

[p51x]

Так что гадать: отладчик у вас под рукой, точка где это происходит тоже. Проверьте.