Скажите как мне создать папку в том каталоге, который выберет юзер?


procedure TForm4.Button1Click(Sender: TObject);
var
fold: string;
begin
fold := shelltreeview1.SelectedFolder.PathName;
CreateDir(fold+'000');
end;

НЕ КАТИТ!