Move back:
procedure TMainForm.ButtonClick(Sender: TObject); begin JamShellTree.MoveInHistory(-1); end;
Move forward:
procedure TMainForm.ButtonClick(Sender: TObject); begin JamShellTree.MoveInHistory(1); end;