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