The following lines of code will handle the click on a button for the parent folder.

procedure TMainForm.ParentButtonClick(Sender: TObject);
begin
JamShellTree.GoUp;
end;