procedure TForm1.IEFolderTree1FolderChange(Sender: TObject; const Path: string; Node: TIEFolderNode);
var
  folderName: string;

  ndTmp: TTreeNode;
  sTmp: String;
  bGoOn: Boolean;
  iTmp: Integer;

begin
    folderName := IEFolderTree1.Folder;
    if folderName = '' then begin
//original:    folderName := IEFolderTree1.SelectedFolder.Name;
        sTmp := IEFolderTree1.SelectedFolder.Name;
        ndTmp := IEFolderTree1.Selected;
        bGoOn := True;
        iTmp := 0;
        while bGoOn do begin
            ndTmp := ndTmp.Parent;
            if (ndTmp <> nil) and (ndTmp.AbsoluteIndex > 0) then begin
                sTmp := ndTmp.Text + '\' + sTmp;
                Inc(iTmp);
            end
            else begin
                bGoOn := False;
                if (iTmp > 0) then begin
                    sTmp := 'WPD:' + sTmp;
//                    IEFolderTree1.Deselect(IEFolderTree1.Selected);
                    //Folder will be empty after this line:
//                    IEFolderTree1.Folder := sTmp;
//                    IEFolderTree1.Update;
                    //so use a little trick: set the MView-Folder directly:
                    IEFolderMView.Folder := sTmp;
                    folderName := sTmp;
                end
                else begin
                    folderName := IEFolderTree1.SelectedFolder.Name;
                end;
            end;
        end;
    end;
    edtFolder.Text := folderName;
end;