// Open folder on double click procedure TfrmMain.lbxObjectsDblClick(Sender: TObject); var Idx: Integer; aObject: TIEWPDObject; begin if ( lbxObjects.ItemIndex >= 0 ) and fPortableDevices.ObjectIsFolder( lbxObjects.Items[ lbxObjects.ItemIndex ] ) then begin // Fill Objects with items in this folder if fPortableDevices.NavigateToFolderID( lbxObjects.Items[ lbxObjects.ItemIndex ] ) then begin lbxObjects.Items.Clear; for I := 0 to fPortableDevices.ObjectCount - 1 do lbxObjects.Items.Add( fPortableDevices.Objects[ I ].ID ); end; end; end;