// Go to the parent of the displayed folder procedure TfrmMain.btnOpenParentClick(Sender: TObject); var I: Integer; begin if fPortableDevices.NavigateToParent() then begin lbxObjects.Items.Clear; for I := 0 to fPortableDevices.ObjectCount - 1 do lbxObjects.Items.Add( fPortableDevices.Objects[ I ].ID ); end; end;