Выбрать имя папки из директории

[Македонский]

Вот именно, и не могу сообразить как все это сделать, чтобы остался и Dir и Name

[Квэнди]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Name,strtemp:string;
Dir:widestring;
begin
Selectdirectory('Выберите директорию:','',Dir);
strtemp:=Dir;
while pos('\',strtemp)>0 do
strtemp:=copy(strtemp,pos('\',strte mp)+1,length(strtemp)-pos('\',strtemp));
name:=strtemp;
label1.Caption:=name;
end;

[Македонский]

Вооот! Простите за мой непрофессионализм, за третью переменную не догадался. Буду учиться, спасибо вам!

[still_alive]

А так разве не проще??
SelectDirectory('Select directory', '', Dir);
Name := ExtractFileName(Dir);

[Македонский]

Проще, но лишь в том случае, когда имя папки состоит из одного слова.

[Македонский]

Ан-нет, все верно, работает! Спасибо, still_alive