var
    Files: IItemIdListCollection;
    Properties: TDictionary<TShellColumnId, TShellPropertyValue>;
  begin
    Files := TItemIdListCollection.Create;
    Files.Add('C:UsersPublicMusicsample.mp3');
    Files.Add('C:UsersPublicMusicsample2.mp3');

    Properties := TDictionary<TShellColumnId, TShellPropertyValue>.Create;
    Properties.Add(TShellColumns.Comment, 'Great song');
    Properties.Add(TShellColumns.Author, 'JAM Software');

    TJamFileOperation.SetProperties(Files, Properties);
    Properties.Free;
  end;