//SCRIPT INFO================================================================================================== BlockOpen
(*Following until 'SCRIPT CONSTANTS...' is documentation.
	Please see 'USER OPTIONS' in the body of the script.
---------------------------------------------
AUTHORS: VVV_Easy
Contact Web: http://contactbyweb.com/vvv-easy
---------------------------------------------
CHANGE LOG :
V 4.3.0.1 (11/15/2025) afrocuban: Script Configurator Enhancements
-------------------------------------------------------------------------------
- Built from the scratch new PythonTkinter Script Conigurator:
	• It has all the functionalities as AHK.
	• Plus light/dark theme developed.
	• Unlike AHK can be used as a standalone application with the same effect as when invoked in PVD.
- Built from the scratch new PythonTkinter movie type search gui:
	• It has 30 seconds now to decide wjicj type you are searching for.
	• Plus dark theme exclusively implemented.
- Added new feature in Script Configurator to enable and manage saved settings from `pvdconf.ini`:
	• **USE SAVED PVDCONFIG** now needs to be enabled to unlock configuration options below.
	• This allows users to apply settings that require a restart of Personal Video Database upon saving.
	• **Use this setting carefully!** Any changes will take effect only after clicking "Save All Script Configurations" (which will restart the application).

- **UPDATE DYNAMIC VALUES_ONLY**:
	• Allows users to update only **dynamic values** like Rating, Top 250, Metascore, and Number of votes.
	• Updates the **Awards summary** for movies released within the last two years, capturing recent wins for fresh releases.
	• When disabled, additional configuration options become available for comprehensive updates.
	• Now poster can be downloaded from any page - separate procedure provided for it in Script Configurator.
	• Single Instance in Script Configurator. No more flooding with multiple instance by mistake.
	• Redesigned whole script to now accept UPDATE DYNAMIC VALUES ONLY switch properly.
	• Discovered that if you try to use BASE_URL_PERSON_PRE_TRUE for ~ctDirectors~, ~ctActors~, ~ctWriters~, ~ctProducers~ and ~ctComposers~ in Movie script, you will end up with PVD assigning new pid to the same person for each career job on each update, for each movie, meaning mutiple duplicates of the same person and never aggregated career. So use only BASE_URL_PERSON_PRE, but you can use BASE_URL_PERSON_PRE_TRUE for custom fields since they're not adding people to People view of PVD. Also, you can use BASE_URL_PERSON_PRE_TRUE to add person ~url~  in People Script, but you have to keep both http and https urcs in order to avoid duplicates

*)
//SCRIPT INFO================================================================================================== BlockClose

//SCRIPT CONSTANTS============================================================================================= BlockOpen

Const

//Script types-----------------------------------------------------------------------------------------------------------
	stMovies = 0;
	stPeople = 1;
	stPoster = 2;
	stScreenShots = 3;
	stCover = 4;

//Script Obligatory Infos----------------------------------------------------------------------------------------------
	SCRIPT_NAME = 'IMDB_Movie_EN_Selenium_v4';  //The most complete information provider
	SCRIPT_DESC = 'IMDB download Movie and Series info [EN]';
	SCRIPT_FILE_NAME = 'IMDB_Movie_[EN][Selenium]-v4';
	SCRIPT_VERSION = '4.3.0.1';
	SCRIPT_TYPE = stMovies;
	SCRIPT_LANG = $09;  //English //$0a es-Spanish   $0c fr-French   $09 en-English
	RATING_NAME = 'IMDB';  //PVD has ~imdbrating~ for this value
	CODE_PAGE = 65001;  //28591=ISO 8859-1 Latin 1; Western European (ISO). Use: 65001=Unicode (UTF-8) | 0=for Autodetect

//Script Options-------------------------------------------------------------------------------------------------------

//WARNING!!!!!! - DO NOT USE EXACT TERMS OF THE SWITCH NAMES ABOVE THIS LINE (IN THE COMMENTS FOR EXAMPLE, BECAUSE SCRIPT CONFIGURATOR WILL TRY TO READ THEM AND REPORT AN ERROR!!!!!!

		//Retreive Data Config
	USE_SAVED_PVDCONFIG = True ;  //***PVDCONFIG*** - Turn this ON to unlock and change the options below (from pvdconf.ini) Settings are applied when you click "Save". Personal Video Database will automatically restart. Use carefully!

//############################################
//#  All options below require USE_SAVED_PVDCONFIG			#
//#  to be enabled so the Script Configurator							#
//#  can apply your settings correctly.										#
//############################################

	UPDATE_DYNAMIC_VALUES_ONLY = False ;  //Update only dynamic values such as: Rating, Top 250, Metascore, Number of votes. Also update the Awards summary when the movie is less than 2 years old, to capture fresh wins for recent releases. Deselect to enable the options

//################################################
//#  All options below require UPDATE_DYNAMIC_VALUES_ONLY#
//#  to be enabled so the Script Configurator								   #
//#  can apply your settings correctly.												#
//###############################################

	GET_ORIGINAL_TITLE = False ;  //Parse the alternate title in your language and country from the main movie page if it exists there to replace the original title in the Title field.
	GET_LOCAL_TITLE = False ;  //Parse the alternate title info in your language and country from the main movie page if it exists there.
	GET_FULL_MPAA = True;  //Parse Certification provider page to retreive the MPAA info. Or Else, only the info from the main movie page will be parsed.
	GET_FULL_AKA = True;  //Parse 'Also known as' provider page to retreive the full AKA info. Or Else, only the info from the main movie page will be downloaded.
	GET_FULL_CREDIT = True;  //Parse the Cast or Credit (text only) provider page to retrieve the full information. Or Else, only the info from the main movie page will be downloaded.
	GET_FULL_CREDIT_FROM_REFERENCE = False ;  //Instead from FullCredits.htm page, parse full credits for non-Series(!) from the Reference.htm page, parsing with Function ParsePage_IMDBMovieCREDIT.
	GET_REFERENCE = False ;  //Parse Description and Taglines from the Reference page with GET_REFERENCE.
	PEOPLE_LIMIT = 1000;  //Limit on the number of actors (cast) or credits (crew) retrieved on the Main page.
	PEOPLE_LIMITS = 1000;  //Limit on the number of actors (cast) or credits (crew) retrieved from any page.
	GET_FULL_AWARDS = True;  //Parse Awards provider page to retreive the info. Or Else it doesn't do anything because there's no info on the main movie page.
	EVENTS_LIMIT = 1000;  //Limit on number of events (USA Academy Awards, Golden Globes, etc) to retrive awards.
	GET_SIMPLE_CONNECTIONS = True;  //Parse SIMPLE connections: Edited_from, Edited_into, Featured_in, Features, Referenced_in, References, Remade_as, Remake_of, Spin_off, Spin_off_from (Spun_off_from), Spoofed_in, Spoofs, from the movieconnections page.
																					(*
																					//As per https://help.imdb.com/article/contribution/titles/movie-connections/GNUNL9W2FTZDGF4Y#
																					//*)
	GET_COMPLEX_CONNECTIONS = True;  //Parse COMPLEX connections: Followed_by, Follows provider, Version_of and Alternate-language version of, from the movieconnections page.
																					(*
																					//As per https://help.imdb.com/article/contribution/titles/movie-connections/GNUNL9W2FTZDGF4Y#
																					//*)
	GET_FULL_CONNECTIONS = True;  //To call Function ParsePage_IMDBMovieCONNECTIONS. Not used for parsing, since it is enough to choose both SIMPLE and COMPLEX connections.   --> to "True".
	CONNECT_LIMIT = 1001;  //Limit on number of connections retrieved.
	GET_FULL_FEATURES = True;  //Parse FULL Technical Specs to retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio, etc).
	GET_MINI_FEATURES = True;  //Parse MINI Technical Specs to retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio). Needed for ~MiniSoundtracks~ for example.
	GET_FEATURES = True;  //Parse Technical Specs with GET_FEATURES to retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
	GET_FULL_PLOT = True;  //Parse full synopsis from provider page with GET_FULL_PLOT to retreive the Plot info into custom 'Plot Summary' field.
	GET_FULL_PLOTKEYWORDS = True;  //Parse Plot Keywords provider page to retreive the Keywords (tags). Or Else, only the info from the main movie page will be downloaded.
	PLOTKEYWORDS_LIMIT = 200;  //Limit on number of tags retrieved. Valid only when Plot Keywords provider page downloaded.
	GET_FULL_PLOTSUMMARY = True;  //Parse FULL_PLOTSUMMARY provider page to retreive the Summaries info. Or Else, only the info from the main movie page will be downloaded.
	GET_FULL_PLOT_SUMMARY = True;  //Parse FULL_PLOT_SUMMARY synopsis from the Plot provider page, and retrieving the Synopsis information in the Comment box.
	GET_FULL_PLOT__SUMMARY = True;  //Parse FULL_PLOT__SUMMARY synopsis from the Plot provider page and retrieve the Synopsis information in the Custom 'IMDB Synopsis' field."
	GET_FULL_PLOT_SYNOPSIS = True;  //Parse FULL_PLOT_SYNOPSIS from the Plot provider page and retrieve the Synopsis information in the Custom IMDB Synopsis box.
	GET_FULL_COMPANYCREDITS = True;  //Parse FULL_COMPANYCREDITS from the CompanyCredits provider page and retrieve full Production Companies and Distributors information in the Custom IMDb fields.

		//Process Data Config
	MAX_IMAGE_HEIGHT = 12000;  //Height limit of the stored posters.
	PRESERVE_PVD_DESCRIPTION_SETTING = True ;  //Avoid double use of ~description~ and ~comment~ using only the user check fields table selection. Or Else, try getting "plot_summary".

		//Process Behavior Config
	BYPASS_SILENT = True ;  //Ensure critical ShowMessage alerts are bypassing Silent PVdB setting in PVD Preferences.
	CHECK_WEBSITE = True ;  //Add to SearchResult List the true HTTPS links ( '  Check the real link for ' + Title + ' whose page is: ' with the browser).
	POSTER_IN_SEARCH = True ;  //Download and show movie poster thumbnails in the SearchResult List.
	INTERNET_TEST_ITERATIONS = 16;  //Number of attempts before alerting the user that no internet connection is detected. Increase this if the provider has low speed.
	DOWNLOAD_MAIN_PAGE = True;  //Download Main page.
	DOWNLOAD_RELEASE_INFO_PAGE = True;  //Download ReleaseInfo (AKA) page.
	DOWNLOAD_FULL_CREDITS_PAGE = True;  //Download FullCredits page.
	DOWNLOAD_PARENTAL_GUIDE_PAGE = True;  //Download ParentalGuide page.
	DOWNLOAD_KEYWORDS_PAGE = True;  //Download Keywords page.
	DOWNLOAD_TECHNICAL_PAGE = True;  //Download Technical page.
	DOWNLOAD_AWARDS_PAGE = True;  //Download Awards page.
	DOWNLOAD_CONNECTIONS_PAGE = True;  //Download MovieConnections page.
	DOWNLOAD_PLOTSUMMARY_PAGE = True;  //Download PlotSummary page.
	DOWNLOAD_COMPANYCREDITS_PAGE = True;  //Download CompanyCredits page.
	DOWNLOAD_EPISODES_LIST = True;  //Download Episodes List.
	DOWNLOAD_MORE_PAGES = False;  //Download more pages: Reviews, CompanyCredits, Locations, ExternalSites and CriticReviews (for example to create new custom fields). Following pages that will maybe be added in the future:
																					//trivia
																					//criticreviews
																					//ratings
																					//soundtrack
																					//alternateversions
																					//videogallery
																					//taglines
	DOWNLOAD_POSTERS = True;  //Download posters. Uncheck to save download time If you don't need them.
	//DOWNLOAD_REFERENCE_PAGE = True ;  //Download Reference page. LEAVE IT TO "TRUE" WHILE COMMENTED OUT, BECAUSE OF THE SCRIPT CONFIGURATOR WILL READ IT ANYWAY, AND SO THE FIELD COULD BE PARSED BY OTHER FUNCTIONS AND IMPORTED TO THE FIELD BY DEFAULT, SO YOU DON'T NEED TO MANUALLY CHECK IT IN "SET OVERWRITEOPTIONS FORS SELECTED PLUGINS" AND TO NEED TO RESTART PVD THEN!!! ALSO READ COMMENtS WHERE THE REFERENCE PAGE FUNCTION IS AND COMMENTS IN SeleniumPVDbScriptsConfig-v4.ini HOW TO ENABLE REFERENCE PAGE OPTIONS AGAIN

//Script data------------------------------------------------------------------------------------------------------------
	//Used Web URL
	BASE_URL_PRE = 'http://www.imdb.com/title/';  //The traditional BASE_URL_PREFIX used to get movie ID if the movie URL is stored, for instance 'http://www.imdb.com/title/    tt0068646/'.
	BASE_URL_PRE_TRUE = 'https://www.imdb.com/title/';  //True actual link to movie's ID 'httpS://www.imdb.com/title/tt0068646/'
	BASE_URL_PERSON_PRE = 'http://www.imdb.com/name/';  //The	traditional BASE_URL to person ID 'httpS://www.imdb.com/name/nm0094036/'
	BASE_URL_PERSON_PRE_TRUE = 'https://www.imdb.com/name/';  //True actual link to person's ID 'httpS://www.imdb.com/name/nm0094036/'
	BASE_URL_SUF = '/';  //Suffix in the link after MovieID or PersonID 'http://www.imdb.com/title/tt0068646/'
	BASE_URL_IMAGE_PRE = 'http://ia.media-imdb.com/images/M/';  //IMDB posters format: Full image: //'https://ia.media-imdb.com/images/M/MV5BMTI2MjI4NTgyNF5BMl5BanBnXkFtZTcwOTM5NzQ5MQ@@.jpg.
	BASE_URL_IMAGE_PRE_TRUE = 'https://m.media-amazon.com/images/M/';  //Resized image: //'https://ia.media-imdb.com/images/M/MV5BMTI2MjI4NTgyNF5BMl5BanBnXkFtZTcwOTM5NzQ5MQ@@._V1_UY50_CR0,0,34,50_AL_.jpg  //where the	two last numbers are width and height
					(*ORIGINAL BY IVEK: BASE_URL_AKA ='https://www.imdb.com/title/%IMDB_ID/releaseinfo/?ref_=tt_ql_sm#akas';  //Also known as provider	page. WEB_SPECIFIC.*)
	BASE_URL_AKA = 'https://www.imdb.com/title/%IMDB_ID/releaseinfo/';  //ReleaseInfo Also known as provider page. WEB_SPECIFIC.
	BASE_URL_CAST = 'https://www.imdb.com/title/%IMDB_ID/fullcredits';  //FullCredits Cast provider	page. WEB_SPECIFIC.
	BASE_URL_MPAA = 'http://www.imdb.com/title/%IMDB_ID/parentalguide/';  //ParentalGuide	Certification	provider page 	WEB_SPECIFIC.
	BASE_URL_REFERENCE = 'https://www.imdb.com/title/%IMDB_ID/reference';  //Reference provider page. WEB_SPECIFIC.
	BASE_URL_PLOTKEYWORDS = 'https://www.imdb.com/title/%IMDB_ID/keywords';  //Keywords PlotKeywords provider page. WEB_SPECIFIC.
	BASE_URL_TECH = 'https://www.imdb.com/title/%IMDB_ID/technical';  //Technical Specifications provider page. WEB_SPECIFIC.
	BASE_URL_AWARDS = 'https://www.imdb.com/title/%IMDB_ID/awards/';  //Awards provider page. WEB_SPECIFIC.
	BASE_URL_CONNECTIONS = 'https://www.imdb.com/title/%IMDB_ID/movieconnections/';  //MovieConnections provider page. WEB_SPECIFIC.
	BASE_URL_PLOTSUMMARY = 'https://www.imdb.com/title/%IMDB_ID/plotsummary/';  //PlotSummary	provider page. WEB_SPECIFIC.
	BASE_URL_REVIEWS = 'https://www.imdb.com/title/%IMDB_ID/reviews';  //Reviews provider page. WEB_SPECIFIC.
	BASE_URL_COMPANYCREDITS = 'https://www.imdb.com/title/%IMDB_ID/companycredits';  //CompanyCredits provider page. WEB_SPECIFIC.
	BASE_URL_LOCATIONS = 'https://www.imdb.com/title/%IMDB_ID/locations';  //Locations provider page. WEB_SPECIFIC.
	BASE_URL_EXTERNALSITES = 'https://www.imdb.com/title/%IMDB_ID/externalsites';  //ExternalSites	provider	page.	WEB_SPECIFIC.
	BASE_URL_CRITICREVIEWS = 'https://www.imdb.com/title/%IMDB_ID/criticreviews';  //CriticReviews	provider	page.	WEB_SPECIFIC.

	//Following search patterns aren't needed in the script but as a reminder for Pythong scripts that now do actuall searches
	BASE_URL_SEARCH_PROV = 'https://www.imdb.com/search/title?title=%s&title_type=feature&release_date=%y,%y&view=simple&count=10';  //Search string for '%s' title and '%y'	year. WEB_SPECIFIC //'&count=10'
	//BASE_URL_SEARCH_PROV = 'http://www.imdb.com/find?q=%s&s=tt&view=simple';  //Ivek23 proposition
	//BASE_URL_SEARCH_PROV = 'http://www.imdb.com/find/?s=tt&q=%s&view=simple';  //Ivek23proposition http://www.imdb.com/find?q=Ninja + Resurrection&s=tt
	BASE_URL_PERSON_SEARCH_PROV = 'https://www.imdb.com/search/name?name=%s&sort=starmeter+desc&ref_=rlm';  //Search	string	for	'%s'	name.	WEB_SPECIFIC

	//End of search patterns that aren't needed in the script but as a reminder for Python scripts that now do actuall searches

	MAX_SEARCHLIST_HEIGHT = 200;  //Height limit of the search list posters.

	//Download HTTPS needed parameters
	BASE_URL_ROUNDABOUT = 'ROUNDABOUT';  //Used to bypass the GET PVdB function and circumvent the 'https' failure
	BASE_DOWNLOAD_FILE_NO_BOM = 'Tmp\downpage-UTF8_NO_BOM.htm';  //File to store the Main page in UTF-8 without BOM, making it unnecessary to use the GET PVdB function for downloading.
	BASE_DOWNLOAD_FILE_IMAGE_NAME = 'Tmp\downimage-BIN';  //File to store the image file in binary, making it unnecessary to use the GET PVdB function for downloading
	CHEAT_PREFIX_URL = 'http://httpbingo.org/response-headers?key=';  //Working HTTP URL used to bypass the GET PVdB function when it returns for SearchList choice.
	DUMMY_HTML_FILE = 'Scripts\BE_PATIENT_PLEASE-DOWNLOADING_DATA';  //Any existing PVD file (small) that is not used. if modified, it might trigger an external file 'C:\Windows\notepad.exe'

//Script movie modes.----------------------------------------------------------------------------------------------------
	smSearch = 0;  //Entry mode and search list mode (AddSearchResult)
	smNormal = 1;  //This script downloads using an external program (not with GetDownloadURL), so it only makes one pass to ParsePage to retrieve all information, credits, poster, etc. Other field modes are not necessary.
									//Movie PVdB fields from http://www.videodb.info/help/hlp_scripting.html#fields:
										//Certification (AddValueField): ~mpaa~
										//Credits (AddMoviePerson): ~Directors~, ~Writers~, ~Composers~, ~Photographers~, ~Actors~, ~Producer~.Same that smCast.hat smCast.
										//Votes (AddValueField): ~rating~, ~imdbrating~, ~orname~, ~orating~ and related custom PVdB fields ~IMDB_Votes~, ~TOP_250~, ~FilmAffinity_Votes~.
										//Poster (AddValueImageURL): ~poster~, ~screenshots~, ~froncover~, ~cdcover~
										//Review (AddValueField): ~comment~, ~tags~
										//Awards (AddAwards).
	smSearchList = 8;  //Used in ParsePage to request downloading the HTTPS link returned by the user in the (AddSearchResult) SearchResult window.
	smFinished = 9;  //Indicates the script has finished.
	smCast = 12;
	smReview = 13;
	smCredits = 14;
	smSoundtracks = 15;
	smEp0 = 16;
	smEp1 = 17;
	smEp2 = 18;
	smEp3 = 19;
	smEp4 = 20;
	smEp5 = 21;
	smEp6 = 22;
	smEp7 = 23;
	smEp8 = 24;
	smEp9 = 25;
	smEp10 = 26;
	smEp11 = 27;
	smEp12 = 28;
	smEp13 = 29;
	smEp14 = 30;
	smEp15 = 31;
	smEp16 = 32;
	smEp17 = 33;
	smEp18 = 34;
	smEp19 = 35;
	smEp20 = 36;
	smEp = 37;
	smPoster = 38;

//Parse results (returned by Script))---------------------------------------------------------------------------------------
	prError =	0;  //An error acquired While processing data
	prFinished = 1;  //Script has finished gathering data
	prList = 3;  //A list of search results is available. Use with (AddSearchResult).
	prListImage = 2;  //A list of image search results is available. Use with?
	prDownload =	4;  //Another URL needs to be downloaded

//Download methods-------------------------------------------------------------------------------------------------------
	dmGET	= 0;
	dmPOST = 1;

//Credits types----------------------------------------------------------------------------------------------------------
	ctActors = 0;
	ctDirectors = 1;
	ctWriters = 2;
	ctComposers = 3;
	ctProducers = 4;

//Image types------------------------------------------------------------------------------------------------------------
	itPoster = 0;
	itScreenShot = 1;
	itFrontCover = 2;
	itDiscImage = 3;
	itPhoto = 4;

//Field Overwrite Option positions in pvdconf.ini------------------------------------------------------------------------
//0=Do nothing, 1=Set If Empty, 2=Overwrite. The Length of 'IMDB_[EN][HTTPS].psf=' is 21.

	opPoster = 87-21;  //- Base ConfigOptions[0] := Copy(PvdConfigOptions, opPoster, 1);
	opTitle = 23-21;  //- Base ConfigOptions[1] := Copy(PvdConfigOptions, opTitle, 1);
	opOrigTitle = 24-21;  //- Base ConfigOptions[2] := Copy(PvdConfigOptions, opOrigTitle, 1);
	opAKA = 25-21;  //- Base [If Not (GET_FULL_AKA)] + AKA ConfigOptions[3] := Copy(PvdConfigOptions, opAKA, 1);
	opYear = 26-21;  //- Base  ConfigOptions[4] := Copy(PvdConfigOptions, opYear, 1);
	opGenre = 68-21;  //- Base  ConfigOptions[5] := Copy(PvdConfigOptions, opGenre, 1);
	opCategory = 70-21;  //- Base ConfigOptions[6] := Copy(PvdConfigOptions, opCategory, 1);
	opDirector = 76-21;  //- Base [If Not (FullCreditsPageDownloaded)] + CREDIT ConfigOptions[7] := Copy(PvdConfigOptions, opDirector, 1);
	opProducer = 79-21;  //- CREDIT  ConfigOptions[8] := Copy(PvdConfigOptions, opProducer, 1);
	opWriter = 77-21;  //- Base [If Not (FullCreditsPageDownloaded)] + CREDIT ConfigOptions[9] := Copy(PvdConfigOptions, opWriter, 1);
	opComposer = 78-21;  //- CREDIT ConfigOptions[10] := Copy(PvdConfigOptions, opComposer, 1);
	opActors = 75-21;  //- Base [If Not (FullCreditsPageDownloaded)] + CREDIT ConfigOptions[11] := Copy(PvdConfigOptions, opActors, 1);
	opCountry = 69-21;  //- Base ConfigOptions[12] := Copy(PvdConfigOptions, opCountry, 1);
	opOrigLang = 44-21;  //- Base ConfigOptions[13] := Copy(PvdConfigOptions, opOrigLang, 1);
	opStudio = 73-21;  //- Base [If Not (ReferencePageDownloaded)] + REFERENCE ConfigOptions[14] := Copy(PvdConfigOptions, opStudio, 1);
	opMPAA = 27-21;  //- Base [If Not (GET_FULL_MPAA)] + MPAA ConfigOptions[15] := Copy(PvdConfigOptions, opMPAA, 1);
	opORating = 32-21;  //- For FilmAffinity rating ("Additional Rating") ConfigOptions[16] := Copy(PvdConfigOptions, opORating, 1);
	opTags = 74-21;  //- PLOTKEYWORDS + REFERENCE (If not(GET_FULL_PLOTKEYWORDS)) ("keywords" (in a comma separated list)) ConfigOptions[17] := Copy(PvdConfigOptions, opTags, 1);
	opRDate = 40-21;  //- Base  ConfigOptions[18] := Copy(PvdConfigOptions, opRDate, 1);
	opBudget =	41-21;  //- Base ConfigOptions[19] := Copy(PvdConfigOptions, opBudget, 1);
	opMoney = 42-21;  //- Base ConfigOptions[20] := Copy(PvdConfigOptions, opMoney, 1);
	opTagline = 35-21;  //- Base + REFERENCE ConfigOptions[21] := Copy(PvdConfigOptions, opTagline, 1);
	opDescription = 36-21;  //- Base + REFERENCE ConfigOptions[22] := Copy(PvdConfigOptions, opDescription, 1);
	opLength = 46-21;  //- Base + TECHNICAL ConfigOptions[23] := Copy(PvdConfigOptions, opLength, 1);
	opAwards = 85-21;  //- AWARDS  ConfigOptions[24] := Copy(PvdConfigOptions, opAwards, 1);
	opConnections = 84-21;  //- CONNECTIONS ConfigOptions[25] := Copy(PvdConfigOptions, opConnections, 1);
	opFeatures = 55-21;  //- Base [If Not (GET_FULL_FEATURES) AND If GET_MINI_FEATURES] + TECHNICAL ConfigOptions[26] := Copy(PvdConfigOptions, opFeatures, 1);
	opEpisodes = 92-21;  //- NOT FOR MOVIE SCRIPT ConfigOptions[27] := Copy(PvdConfigOptions, opEpisodes, 1);

//Custom field names to use------------------------------------------------------------------------
	THANKS_FIELD = 'Thanks Credits';
	FOLLOWEDBY_FIELD = 'Followed By';
	SILENT_FIELD = 'Silent';
	IMDB_FIELD = 'IMDB';

//SCRIPT CONSTANTS============================================================================================= BlockClose

//SCRIPT GLOBAL VARIABLES=======================================================================================BlockOpen

Var
	Mode: Byte;
	DownloadURL: String;
	StoredURL: String;
	MediaType, MediaTypeHTML, MediaTypeBase: String;  //'Movie''TV Episode' 'TV Series'
	PVDConfigOptions: String;
	MainPageDownloaded, FullCreditsPageDownloaded, ReleaseInfoPageDownloaded, ReviewsPageDownloaded, CompanyCreditsPageDownloaded, LocationsPageDownloaded, TechnicalPageDownloaded, ExternalSitesPageDownloaded, ParentalGuidePageDownloaded, AwardsPageDownloaded, PlotSummaryPageDownloaded, ReferencePageDownloaded, KeywordsPageDownloaded, MovieConnectionsPageDownloaded, CriticReviewsPageDownloaded, EpisodeListDownloaded: Boolean;  //Flags for each page
	PosterDownloaded: Boolean;  //Flag for poster could be downloaded from any page function
	ELI: Integer;
	ExtraLinks: array [smCast..smPoster] of String;

//SCRIPT GLOBAL VARIABLES=======================================================================================BlockClose

//USER FUNCTIONS AND PROCEDURES=================================================================================BlockOpen

//(*
Procedure PurgeTmpFiles(DirectoryPath: String);//BlockOpen
Var
	ScriptPath, Arguments: String;

Begin

	//Define the path to the VBS script using GetAppPath
	ScriptPath := GetAppPath + 'Scripts\purge_tmp_files.vbs';
	//Call the VBS script with the dynamic directory path
	FileExecute('wscript.exe', '"' + ScriptPath + '" "' + DirectoryPath + '"');
	LogMessage('Procedure PurgeTmpFiles - Purged all files in directory:|' + DirectoryPath);
	Wait (500);

	//Check if any .htm or .jpg files are left in the Tmp directory

	If FileExists(DirectoryPath + '\Tmp\*.htm') Or FileExists(DirectoryPath + '\Tmp\*.jpg') Then Begin
		ShowMessage('PurgeTmpFiles says: Some files in the "Tmp" folder cannot be deleted. Please try to manually delete all .htm and .jpg files that are left in order to continue and then press "OK" here.', SCRIPT_FILE_NAME);
	End;  //If FileExists(DirectoryPath + '\Tmp\*.htm') Or FileExists(DirectoryPath + '\Tmp\*.jpg') Then Begin should end here
	//*)
End;//BlockClose
//*)

//(*
Function TextBetWeenFirst(_HTML: String;_ABegin, _AEnd:String): String;//BlockOpen
	//Returns the first extract part of a given _HTML between _ABegin and _AEnd and removes all tags from the result subString.
	//In order to avoid set the Pos variable in TextBetween
Var
	_Pos: Integer;

Begin

	_Pos := 0;
	Result := TextBetWeen(_HTML, _ABegin, _AEnd, False, _Pos);
	Exit;

End;//BlockClose
//*)

//(*
Function GetPvdConfigOptions(): TWideArray;//BlockOpen
Var
	PvdConfigOptions: String;
	ConfigOptions: TWideArray;

Begin

	LogMessage('Function GetPvdConfigOptions BEGIN======================|');
	//Read the PvdConfigOptions from the INI file
	PvdConfigOptions := TextBetWeenFirst(FileToString(GetAppPath + 'pvdconf.ini'), SCRIPT_FILE_NAME + '.psf=', #13#10);
	LogMessage('Function GetPvdConfigOptions - Results PvdConfigOptions:|' + PvdConfigOptions);
	//Initialize the array
	SetLength(ConfigOptions, 28);  //Adjust the length to match the number of opXXX values
	//Populate the array with the values of opXXX

	ConfigOptions[0] := Copy(PvdConfigOptions, opPoster, 1);
	ConfigOptions[1] := Copy(PvdConfigOptions, opTitle, 1);
	ConfigOptions[2] := Copy(PvdConfigOptions, opOrigTitle, 1);
	ConfigOptions[3] := Copy(PvdConfigOptions, opAKA, 1);
	ConfigOptions[4] := Copy(PvdConfigOptions, opYear, 1);
	ConfigOptions[5] := Copy(PvdConfigOptions, opGenre, 1);
	ConfigOptions[6] := Copy(PvdConfigOptions, opCategory, 1);
	ConfigOptions[7] := Copy(PvdConfigOptions, opDirector, 1);
	ConfigOptions[8] := Copy(PvdConfigOptions, opProducer, 1);
	ConfigOptions[9] := Copy(PvdConfigOptions, opWriter, 1);
	ConfigOptions[10] := Copy(PvdConfigOptions, opComposer, 1);
	ConfigOptions[11] := Copy(PvdConfigOptions, opActors, 1);
	ConfigOptions[12] := Copy(PvdConfigOptions, opCountry, 1);
	ConfigOptions[13] := Copy(PvdConfigOptions, opOrigLang, 1);
	ConfigOptions[14] := Copy(PvdConfigOptions, opStudio, 1);
	ConfigOptions[15] := Copy(PvdConfigOptions, opMPAA, 1);
	ConfigOptions[16] := Copy(PvdConfigOptions, opORating, 1);
	ConfigOptions[17] := Copy(PvdConfigOptions, opTags, 1);
	ConfigOptions[18] := Copy(PvdConfigOptions, opRDate, 1);
	ConfigOptions[19] := Copy(PvdConfigOptions, opBudget, 1);
	ConfigOptions[20] := Copy(PvdConfigOptions, opMoney, 1);
	ConfigOptions[21] := Copy(PvdConfigOptions, opTagline, 1);
	ConfigOptions[22] := Copy(PvdConfigOptions, opDescription, 1);
	ConfigOptions[23] := Copy(PvdConfigOptions, opLength, 1);
	ConfigOptions[24] := Copy(PvdConfigOptions, opAwards, 1);
	ConfigOptions[25] := Copy(PvdConfigOptions, opConnections, 1);
	ConfigOptions[26] := Copy(PvdConfigOptions, opFeatures, 1);
	ConfigOptions[27] := Copy(PvdConfigOptions, opEpisodes, 1);

	(*
	//Log messages
	LogMessage('Function GetPvdConfigOptions - opPoster:|' + ConfigOptions[0]);
	LogMessage('Function GetPvdConfigOptions - opTitle:|' + ConfigOptions[1]);
	LogMessage('Function GetPvdConfigOptions - opOrigTitle:|' + ConfigOptions[2]);
	LogMessage('Function GetPvdConfigOptions - opAKA:|' + ConfigOptions[3]);
	LogMessage('Function GetPvdConfigOptions - opYear:|' + ConfigOptions[4]);
	LogMessage('Function GetPvdConfigOptions - opGenre:|' + ConfigOptions[5]);
	LogMessage('Function GetPvdConfigOptions - opCategory:|' + ConfigOptions[6]);
	LogMessage('Function GetPvdConfigOptions - opDirector:|' + ConfigOptions[7]);
	LogMessage('Function GetPvdConfigOptions - opProducer:|' + ConfigOptions[8]);
	LogMessage('Function GetPvdConfigOptions - opWriter:|' + ConfigOptions[9]);
	LogMessage('Function GetPvdConfigOptions - opComposer:|' + ConfigOptions[10]);
	LogMessage('Function GetPvdConfigOptions - opActors:|' + ConfigOptions[11]);
	LogMessage('Function GetPvdConfigOptions - opCountry:|' + ConfigOptions[12]);
	LogMessage('Function GetPvdConfigOptions - opOrigLang:|' + ConfigOptions[13]);
	LogMessage('Function GetPvdConfigOptions - opStudio:|' + ConfigOptions[14]);
	LogMessage('Function GetPvdConfigOptions - opMPAA:|' + ConfigOptions[15]);
	LogMessage('Function GetPvdConfigOptions - opORating:|' + ConfigOptions[16]);
	LogMessage('Function GetPvdConfigOptions - opTags:|' + ConfigOptions[17]);
	LogMessage('Function GetPvdConfigOptions - opRDate:|' + ConfigOptions[18]);
	LogMessage('Function GetPvdConfigOptions - opBudget:|' + ConfigOptions[19]);
	LogMessage('Function GetPvdConfigOptions - opMoney:|' + ConfigOptions[20]);
	LogMessage('Function GetPvdConfigOptions - opTagline:|' + ConfigOptions[21]);
	LogMessage('Function GetPvdConfigOptions - opDescription:|' + ConfigOptions[22]);
	LogMessage('Function GetPvdConfigOptions - opLength:|' + ConfigOptions[23]);
	LogMessage('Function GetPvdConfigOptions - opAwards:|' + ConfigOptions[24]);
	LogMessage('Function GetPvdConfigOptions - opConnections:|' + ConfigOptions[25]);
	LogMessage('Function GetPvdConfigOptions - opFeatures:|' + ConfigOptions[26]);
	LogMessage('Function GetPvdConfigOptions - opEpisodes:|' + ConfigOptions[27]);
	//*)

	//Return the array
	Result := ConfigOptions;
	LogMessage('Function GetPvdConfigOptions - completed.');

End;//BlockClose
//*)

//OBLIGATORY CALLBACK FUNCTIONS=================================================================================BlockOpen

//(*
Function GetScriptVersion: String;//BlockOpen
Begin Result := SCRIPT_VERSION;
End;//BlockClose
//*)

//(*
Function GetScriptName: String;//BlockOpen
Begin Result := SCRIPT_FILE_NAME;
End;//BlockClose
//*)

//(*
Function GetScriptDesc: String;//BlockOpen
Begin Result := SCRIPT_DESC;
End;//BlockClose
//*)

//(*
Function GetBaseURL: AnsiString;//BlockOpen
Begin Result := BASE_URL_ROUNDABOUT;  //Used to bypass the GET PVdB function and circumvent the 'https' failure.
End;//BlockClose
//*)

//(*
Function GetScriptLang:Cardinal;//BlockOpen
Begin Result := SCRIPT_LANG;
End;//BlockClose
//*)

//(*
Function GetScriptType:Byte;//BlockOpen
Begin Result := SCRIPT_TYPE;
End;//BlockClose
//*)

//(*
Function GetCurrentMode:Byte;//BlockOpen
Begin Result := Mode;
End;//BlockClose
//*)

//(*
Function ProcException(Exception: String; Msg: String): AnsiString;//BlockOpen

Begin

	LogMessage('Function ProcException invoked - Exception:|' + Exception + ', Message:|' + Msg);

	//Interpret log message content
	If Pos('NOT_FOUND', Msg) > 0 Then
		Result := 'NOT_FOUND'
	Else If Pos('FAILED', Msg) > 0 Then
		Result := 'FAILED'
	Else If Pos('SUCCESS', Msg) > 0 Then
		Result := 'SUCCESS'
	Else
		Result := 'UNKNOWN';  //Handle unexpected statuses

End;//BlockClose
//*)

//(*
Function NextMode(curMode:Integer): Integer;//BlockOpen
Var
	I: Integer;

Begin

	Result := smFinished;
If curMode < Low(ExtraLinks) - 1 Then curMode := Low(ExtraLinks) - 1;

For I := curMode + 1 to High(ExtraLinks) Do
	If ExtraLinks[I] <> '' Then Begin
		Result := I;
		Break;
	End;  //If ExtraLinks[I] <> '' Then Begin should end here
End;//BlockClose
//*)

//(*
Function GetDownloadURL: AnsiString;//BlockOpen
Var
	curPos: Integer;
	ScriptPath, MovieID: String;
	RequiredScripts: Array[1..12] of String;
	MissingList: String;
	i: Integer;
	SubsList: String;

Begin

	LogMessage('Function GetDownloadURL BEGIN======================|');
	LogMessage('Function GetDownloadURL - Global Var: Mode|' + IntToStr(Mode) + '||');
	LogMessage('Function GetDownloadURL - Global Var: DownloadURL|' + DownloadURL + '||');

	ScriptPath := GetAppPath + 'Scripts\';
	//Call PurgeTmpFiles at the very beginning to ensure it's executed first
	PurgeTmpFiles(ScriptPath + 'Tmp\');
	LogMessage('Function GetDownloadURL - called PurgeTmpFiles to purge files in|' + ScriptPath + 'Tmp\' + '||');

	//Validation of needed external files.
	RequiredScripts[1] := 'PyPVDbScriptsConfig-v4.py';
	RequiredScripts[2] := 'Selenium_Chrome_Base_page_v4.py';
	RequiredScripts[3] := 'Selenium_Chrome_DownloadImage-v4.py';
	RequiredScripts[4] := 'Selenium_Chrome_IMDB_Episode_List_page_v4.py';
	RequiredScripts[5] := 'Selenium_Chrome_Movie_Additional_pages_v4.py';
	RequiredScripts[6] := 'Selenium_Chrome_Movie_AM_pages_v4.py';
	RequiredScripts[7] := 'Selenium_Chrome_Movie_FA_pages_v4.py';
	RequiredScripts[8] := 'Selenium_Chrome_Movie_RT_pages_v4.py';
	RequiredScripts[9] := 'Selenium_Chrome_People_Additional_pages_v4.py';
	RequiredScripts[10] := 'Selenium_Chrome_Search-v4.py';
	RequiredScripts[11] := 'Selenium_Chrome_RT_Episode_List_page_v4.py';
	RequiredScripts[12] := 'Selenium_Chrome_People_Base_page_v4.py';

	MissingList := '';
	For i := Low(RequiredScripts) To High(RequiredScripts) Do Begin
		//Only check if the entry is non-empty AND the file is missing
		If (RequiredScripts[i] <> '') And Not FileExists(ScriptPath + RequiredScripts[i]) Then Begin
			MissingList := MissingList + '• ' + RequiredScripts[i] + #13#10;
			LogMessage('Function GetDownloadURL - Missing required script:|' + RequiredScripts[i]);
		End;  //If (RequiredScripts[i] <> '') And Not FileExists(ScriptPath + RequiredScripts[i]) Then Begin should end here
	End;  //For i := Low(RequiredScripts) To High(RequiredScripts) Do Begin should end here

	If MissingList <> '' Then Begin
		ShowMessage('The following required Selenium scripts are missing:|' + #13#10 + MissingList + 'Please ensure these files are available in the Scripts directory.', SCRIPT_FILE_NAME);
		Mode := smFinished;
		Result := '';  //If error, return empty string
		Exit;
	End;  //If MissingList <> '' Then Begin should end here

	If (Mode = smSearch) Then Begin
		//Get stored subs if exist.
		SubsList := GetFieldValueXML('subs');
		AddCustomFieldValueByName('Subs', SubsList);
		LogMessage('Function GetDownloadURL - Stored subs: ' + SubsList + '||');

		//Get StoredURL if exists
		StoredURL := GetFieldValueXML('url');
		LogMessage('Function GetDownloadURL - Stored URL is:|' + StoredURL + '||');
		//Standardize the URL
		StoredURL := LowerCase(StoredURL);
		StoredURL := StringReplace(StoredURL, 'https', 'http', True, True, False);
		StoredURL := StringReplace(StoredURL, 'http://', 'http:', True, True, False);
		LogMessage('Function GetDownloadURL - Stored URL after replacing http:// is:|' + StoredURL + '||');
		StoredURL := StringReplace(StoredURL, '//', '', True, True, False);
		LogMessage('Function GetDownloadURL - Stored URL after replacing // with / is:|' + StoredURL + '||');
		StoredURL := StringReplace(StoredURL, 'http:', 'http://', True, True, False);
		StoredURL := StringReplace(StoredURL, 'http://imdb.com/', 'http://www.imdb.com/', True, True, False);
		StoredURL := StringReplace(StoredURL, 'http://httpbin.org/response-headers?key=', '', True, False, False);
		StoredURL := StringReplace(StoredURL, ' ', BASE_URL_SUF, True, True, False) + BASE_URL_SUF;  //Asure that the URLs always ends with the BASE_URL_SUF (even at the last position).
		LogMessage('Function GetDownloadURL - Final Stored URL after StringReplace is:|' + StoredURL + '||');

		//Get IMDB ID if exists
		curPos := Pos(BASE_URL_PRE, StoredURL);
		If 0 < curPos Then Begin  //Get IMDB_ID for search
			LogMessage('Function GetDownloadURL - IMDB URL.');
			MovieID := TextBetWeen(StoredURL, BASE_URL_PRE, BASE_URL_SUF, False, curPos);  //WEB_SPECIFIC
			DownloadURL := BASE_URL_PRE_TRUE + MovieID + BASE_URL_SUF;  //WEB_SPECIFIC
			LogMessage('Function GetDownloadURL - Mode=smSearch: Parse stored information DownloadURL:|' + DownloadURL + '||');
			Mode := smNormal;  //->Go to function ParsePage for parse the film information
			Result := GetAppPath + DUMMY_HTML_FILE;  //Any small existing file for cheating PVdB's automatic download.
			LogMessage('Function GetDownloadURL END====================== with Mode=' + IntToStr(Mode) + ' (smNormal) with Result=' + Result + '||');
			Exit;
		End Else Begin  //The movie URL doesn't exist, search mode needed. Downloading search page.
			//ShowMessage('No IMDB URL.', SCRIPT_FILE_NAME);
			LogMessage('Function GetDownloadURL - No IMDB URL.');
			Mode := smSearch;  //->Go to function ParsePage to search the URL (in this function you can't use user functions)
			DownloadURL := '';  //Has not movie URL.
			Result := GetAppPath + DUMMY_HTML_FILE;  //Any small existing file for cheating PVdB's automatic download.
			LogMessage('Function GetDownloadURL END====================== with Mode=' + IntToStr(Mode) + ' (smSearch) with Result=' + Result + '||');
			Exit;  //Go to the
		End;  //If 0 < curPos Then Begin should end here
	End;  //If (Mode = smSearch) Then Begin should end here

	//No other modes working needed in this function.
	//smNormal = 1;  //These scripts download with an external program (not with GetDownloadURL), so they only make one pass to ParsePage to retrieve all info, credits, poster, etc. Other field modes are not necessary.
	//smSearchList = 8;  //Used in ParsePage to request downloading the HTTPS link returned by the user in the (AddSearchResult) window.
	Result := GetAppPath + DUMMY_HTML_FILE;  //Any existing small file for bypassing PVdB automatic download.
	LogMessage('Function GetDownloadURL END====================== with Mode=' + IntToStr(Mode) + ' Result=' + Result + '||');
	Exit;

End;//BlockClose
//*)

//(*
Function GetRatingName: String;//BlockOpen
	Begin Result := RATING_NAME;
End;//BlockClose
//*)

//(*
Function GetCodePage:Cardinal;//BlockOpen
	Begin Result := CODE_PAGE;
End;//BlockClose
//*)

//OBLIGATORY CALLBACK FUNCTIONS=================================================================================BlockClose

//USER FUNCTIONS AND PROCEDURES=================================================================================BlockOpen

//(*
Function BoolToStr(B: Boolean): String;//BlockOpen
Begin
	If B Then
		Result := 'True'
	Else
		Result := 'False';
End;//BlockClose
//*)

//(*
Function WaitForPageFile(const FileName, PageLabel: String; InitialWait: Integer; StabilizeMs: Integer): String;//BlockOpen

//The function waits for the exsitence of the files to be downloaded, then when found, it converts their encoding and reads them

Var
	i, currentWait: Integer;
	tryResult: String;

Begin

	Result := '';
	i := 0;

	//Provide defaults manually
	If InitialWait = 0 Then InitialWait := 2000;
	If StabilizeMs = 0 Then StabilizeMs := 1000;

	currentWait := InitialWait;

	While Not FileExists(FileName) Do Begin
		LogMessage('Function WaitForPageFile - Waiting ' + IntToStr(currentWait div 1000) + 's for the presence of:|' + FileName + '||');
		Wait (currentWait);

		//Escalate wait times
		case i of
			0: currentWait := 5000;
			1: currentWait := 5000;
			2: currentWait := 5000;
			3: currentWait := 5000;
			4: currentWait := 15000;
			5: currentWait := 5000;
		End;  //case i of should end here

		Inc(i);
		If i = INTERNET_TEST_ITERATIONS Then Begin
			case MessageBox('IMDb Movie Function WaitForPageFile - Too many faulty attempts to internet connection for ' + PageLabel + '. Cancel, Retry, or Continue (Ignore)? NOTE: IF YOU PRESS IGNORE YOU WILL NOT GET DATA FROM THAT PAGE, SO CONSIDER TO RETRY OR TO CANCEL AND START DOWNLOAD AGAIN! IMDb really makes it harder and harder to get the data.', SCRIPT_FILE_NAME, 2) of
			3:  //Cancel
				Begin
					LogMessage('Function WaitForPageFile for ' + PageLabel + ' ended with NO INTERNET connection===============|');
					Result := '#CANCELLED#';
					Exit;
				End;  //Begin 3:  //Cancel should end here
			4:  //Retry
				Begin
					i := 0;
					currentWait := InitialWait;
				End;  //Begin 4:  //Retry should end here
			5:  //Ignore
				Begin
					LogMessage('Function WaitForPageFile - Creating dummy ' + PageLabel + ' HTML file due to Ignore selection|');
					with TStringList.Create Do Begin
						try
							Add('<html><body>Dummy ' + PageLabel + ' due to user Ignore.</body></html>');
							SaveToFile(FileName);
						finally
							Free;
						End;  //try-finally should end here
					End;  //with TStringList.Create Do Begin should end here
					Break;
				End;  //Begin 5:  //Ignore should end here
			End;  //case MessageBox... of should end here
		End;  //If i = INTERNET_TEST_ITERATIONS Then Begin should end here
	End;  //While Not FileExists(FileName) Do Begin should end here

	//Stabilization wait
	LogMessage('Function WaitForPageFile - ' + PageLabel + ' file detected, waiting extra ' + IntToStr(StabilizeMs) + 'ms to stabilize...');
	Wait (StabilizeMs);

	//Manual error handling instead of try/except
	If Not FileExists(FileName) Then Begin
		LogMessage(ProcException('Function WaitForPageFile - FileError', 'NOT_FOUND:|' + FileName));
		Exit;
	End;  //If Not FileExists(FileName) Then Begin should end here

	tryResult := FileToString(FileName);  //If the environment throws, replace with safe read
	If tryResult = '' Then Begin
		tryResult := ''
		LogMessage(ProcException('Function WaitForPageFile - FileError', 'FAILED to read ' + FileName))
	End Else Begin
		Result := ConvertEncoding(tryResult, 65001);
		LogMessage(ProcException('Function WaitForPageFile - FileRead', 'SUCCESS:|' + FileName));
	End;  //If tryResult = '' Then Begin should end here
End;//BlockClose
//*)

{
//Maybe I will need this function in the future, and if so it has to be reworked since it doesn't execute as such at the moment

//(*
Function ShouldUpdateField(FieldName: String): Boolean;//BlockOpen
Var
	MovieYear, CurrentYear: Integer;

Begin

	If Not UPDATE_DYNAMIC_VALUES_ONLY Then
		Exit;  //Full update: always update all fields

	MovieYear := StrToIntDef(GetFieldValueXML('year'), 0);
	CurrentYear := YearOf(CurrentDateTime);

	Case FieldName of
		//Always update
		'imdbrating', 'IMDB_Rating', 'IMDBRating',
		'IMDB_Votes', 'IMDB Votes', 'IMDB Votes:',
		'TOP_250', 'Top 250:', 'TOP_250_Last',
		'TOP_250TV', 'TOP_250TV_Last',
		'Metascore':
		Exit(True);

		//Only update if movie is recent
		'IMDbAwards1', 'Awards':
		If (CurrentYear - MovieYear) <= 2 Then Exit(True);
	End;  //Case FieldName of should end here

	Exit(False);  //Skip anything Else
	Exit(False);  //Skip anything Else
End;//BlockClose
//*)}

//{
//Needed for HTML := DownloadPagexxx(FileTitlexxx); in Function ParsePage

//(*
Function ReadPageFile(const PageLabel, FileSuffix: String): String;//BlockOpen
Var
	ScriptPath, FilePath, FileName, WebText: String;

Begin

	LogMessage('Function ReadPageFile' + PageLabel + ' BEGIN======================|');
	LogMessage('Function ReadPageFile' + PageLabel + ' - Global Var: DownloadURL|');

	ScriptPath := GetAppPath + 'Scripts\';
	FilePath := ScriptPath + 'Tmp\';
	FileName := 'downpage-UTF8_NO_BOM' + FileSuffix + '.htm';

	//Check before reading
	If Not FileExists(FilePath + FileName) Then Begin
		LogMessage('Function ReadPageFile' + PageLabel + ' - File not found, skipping.');
		Result := '';
		Exit;
	End;  //If Not FileExists(FilePath + FileName) Then Begin should end here

	LogMessage('Function ReadPageFile' + PageLabel + ' - Reading file:|' + FilePath + FileName);
	WebText := FileToString(FilePath + FileName);

	If WebText = '' Then Begin
		LogMessage('Function ReadPageFile' + PageLabel + ' - File read returned empty content.');
		Result := '';
		Exit;
	End;  //If WebText = '' Then Begin should end here

	Result := ConvertEncoding(WebText, 65001);  //Convert to UTF-8
	LogMessage('Function ReadPageFile' + PageLabel + ' END======================|');

End;//BlockClose//}
//*)

//Wrappers needed for HTML := DownloadPagexxx(FileTitlexxx); in Function ParsePage

//(*
Function DownloadPage(URL:AnsiString): String;//BlockOpen
//Returns the URL page text. If errors, it returns empty string
Var
	i, currentWait: Integer;
	FileTitleFullCredits, FileTitleReleaseInfo, FileTitleReviews, FileTitleCompanyCredits, FileTitleMain, FileTitleLocations, FileTitleTechnical, FileTitleExternalSites, FileTitleParentalGuide, FileTitleAwards, FileTitlePlotSummary, FileTitleReference, FileTitleKeywords, FileTitleMovieConnections, FileTitleCriticReviews, ScriptPath, FilePath, WebText: String;
	EXCLUDED_FILES: String;
	ConfigOptions: TWideArray;
	markerFilePath: String;

Begin

	LogMessage('Function DownloadPage BEGIN======================|');
	LogMessage('Function DownloadPage - Global Var: DownloadURL|' + DownloadURL + '||');
	LogMessage('Function DownloadPage -  Local Var: URL|' + URL + '||');

	//Set the script and file paths
	ScriptPath := GetAppPath + 'Scripts\';
	LogMessage('Function DownloadPage - Local Var: ScriptPath|' + ScriptPath + '||');
	FilePath := ScriptPath + 'Tmp\';
	FileTitleMain := 'downpage-UTF8_NO_BOM.htm';
	FileTitleReleaseInfo := 'downpage-UTF8_NO_BOM-ReleaseInfo.htm';
	FileTitleFullCredits := 'downpage-UTF8_NO_BOM-FullCredits.htm';
	FileTitleParentalGuide := 'downpage-UTF8_NO_BOM-ParentalGuide.htm';
	FileTitleReference := 'downpage-UTF8_NO_BOM-Reference.htm';
	FileTitleKeywords := 'downpage-UTF8_NO_BOM-Keywords.htm';
	FileTitleTechnical := 'downpage-UTF8_NO_BOM-Technical.htm';
	FileTitleAwards := 'downpage-UTF8_NO_BOM-Awards.htm';
	FileTitleMovieConnections := 'downpage-UTF8_NO_BOM-MovieConnections.htm';
	FileTitlePlotSummary := 'downpage-UTF8_NO_BOM-PlotSummary.htm';
	FileTitleReviews := 'downpage-UTF8_NO_BOM-Reviews.htm';
	FileTitleCompanyCredits := 'downpage-UTF8_NO_BOM-CompanyCredits.htm';
	FileTitleLocations := 'downpage-UTF8_NO_BOM-Locations.htm';
	FileTitleExternalSites := 'downpage-UTF8_NO_BOM-ExternalSites.htm';
	FileTitleCriticReviews := 'downpage-UTF8_NO_BOM-CriticReviews.htm';

	//Removed redundant file deletion checks, relying on PurgeTmpFiles procedure at the start.

	//Download the Main page

	//Calling GetPvdConfigOptions Function first
	ConfigOptions := GetPvdConfigOptions;

	//(*
	//Log the values of each opXXX
	LogMessage('Function DownloadPage - opPoster:|' + ConfigOptions[0]);
	LogMessage('Function DownloadPage - opTitle:|' + ConfigOptions[1]);
	LogMessage('Function DownloadPage - opOrigTitle:|' + ConfigOptions[2]);
	LogMessage('Function DownloadPage - opAKA:|' + ConfigOptions[3]);
	LogMessage('Function DownloadPage - opYear:|' + ConfigOptions[4]);
	LogMessage('Function DownloadPage - opGenre:|' + ConfigOptions[5]);
	LogMessage('Function DownloadPage - opCategory:|' + ConfigOptions[6]);
	LogMessage('Function DownloadPage - opDirector:|' + ConfigOptions[7]);
	LogMessage('Function DownloadPage - opProducer:|' + ConfigOptions[8]);
	LogMessage('Function DownloadPage - opWriter:|' + ConfigOptions[9]);
	LogMessage('Function DownloadPage - opComposer:|' + ConfigOptions[10]);
	LogMessage('Function DownloadPage - opActors:|' + ConfigOptions[11]);
	LogMessage('Function DownloadPage - opCountry:|' + ConfigOptions[12]);
	LogMessage('Function DownloadPage - opOrigLang:|' + ConfigOptions[13]);
	LogMessage('Function DownloadPage - opStudio:|' + ConfigOptions[14]);
	LogMessage('Function DownloadPage - opMPAA:|' + ConfigOptions[15]);
	LogMessage('Function DownloadPage - opORating:|' + ConfigOptions[16]);
	LogMessage('Function DownloadPage - opTags:|' + ConfigOptions[17]);
	LogMessage('Function DownloadPage - opRDate:|' + ConfigOptions[18]);
	LogMessage('Function DownloadPage - opBudget:|' + ConfigOptions[19]);
	LogMessage('Function DownloadPage - opMoney:|' + ConfigOptions[20]);
	LogMessage('Function DownloadPage - opTagline:|' + ConfigOptions[21]);
	LogMessage('Function DownloadPage - opDescription:|' + ConfigOptions[22]);
	LogMessage('Function DownloadPage - opLength:|' + ConfigOptions[23]);
	LogMessage('Function DownloadPage - opAwards:|' + ConfigOptions[24]);
	LogMessage('Function DownloadPage - opConnections:|' + ConfigOptions[25]);
	LogMessage('Function DownloadPage - opFeatures:|' + ConfigOptions[26]);
	LogMessage('Function DownloadPage - opEpisodes:|' + ConfigOptions[27]);
	//*)

	//Check if the main page should be downloaded based on unique ConfigOptions
	If (USE_SAVED_PVDCONFIG) And (
		//(ConfigOptions[0] = '0') And  //Poster
		(ConfigOptions[1] = '0') And  //Title
		(ConfigOptions[2] = '0') And  //OrigTitle
		(ConfigOptions[4] = '0') And  //Year
		(ConfigOptions[5] = '0') And  //Genre
		(ConfigOptions[6] = '0') And  //Category
		(ConfigOptions[12] = '0') And  //Country
		(ConfigOptions[13] = '0') And  //OrigLang
		(ConfigOptions[18] = '0') And  //RDate
		(ConfigOptions[19] = '0') And  //Budget
		(ConfigOptions[20] = '0'))  (*  //Money  //*) Then Begin

		LogMessage('Function DownloadPage - Skipping download for Main page as per configuration.');
		MainPageDownloaded := False;

	End Else Begin
		LogMessage('Function DownloadPage - Download attempt with Selenium in file:|' + ScriptPath + BASE_DOWNLOAD_FILE_NO_BOM + ' the information of the Main page:|' + URL + '||');
		LogMessage('Function DownloadPage - Executing Python script to download URL content.');
		FileExecute('pythonw.exe', '"' + ScriptPath + 'Selenium_Chrome_Base_page_v4.py" "' + URL + '" "' + ScriptPath + BASE_DOWNLOAD_FILE_NO_BOM + '"');
		LogMessage('Function DownloadPage - Download started with Selenium in file:|' + ScriptPath + BASE_DOWNLOAD_FILE_NO_BOM + ' the information of the Main Page:|' + URL + '||');

		//(*
		//Wait for the Selenium download to finish for the Main Page.
		WebText := WaitForPageFile(ScriptPath + BASE_DOWNLOAD_FILE_NO_BOM, 'MainPage', 8000, 4000);
		Result := WebText;
		MainPageDownloaded := WebText <> '';
		LogMessage('Function DownloadPage - Value of MainPageDownloaded:|' + BoolToStr(MainPageDownloaded));
		//*)
	End;  //If (USE_SAVED_PVDCONFIG) And (...) Then Begin should end here

	//Prepare the EXCLUDED_FILES list for additional pages
	EXCLUDED_FILES := '';

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		//(*
		//Check if the ReleaseInfo page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[3] = '0')  (*//Also Kown As  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for ReleaseInfo page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-ReleaseInfo.htm|';
			ReleaseInfoPageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[3] = '0')  (*//Also Kown As  //*) Then Begin should end here

		//Check if the FullCredits page should be downloaded based on unique ConfigOptions
		LogMessage('Function DownloadPage - if it is Series there will be MediaType:|' + MediaType + '|| or...');
		LogMessage('Function DownloadPage - if it is Series there will be category:|' + GetFieldValueXML('category') + '||');
		If ((USE_SAVED_PVDCONFIG) And ((ConfigOptions[8] = '0') And (ConfigOptions[10] = '0'))) Or (GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0))) Then Begin
			LogMessage('Function DownloadPage - Skipping download for FullCredits page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-FullCredits.htm|';
			FullCreditsPageDownloaded := False;
		End;  //If ((USE_SAVED_PVDCONFIG) And ((ConfigOptions[8] = '0') And (ConfigOptions[10] = '0'))) Or (GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0))) Then Begin should end here

		//Check if the ParentalGuide page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[15] = '0')  (*  //MPAA  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for ParentalGuide page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-ParentalGuide.htm|';
			ParentalGuidePageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[15] = '0')  (*  //MPAA  //*) Then Begin should end here
		//*)

		(*
		//Check if the Reference page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[14] = '0')  (*  //Studio (because no other page to be downloaded contains full Studio info, except CompanyCredits which is still not included)  //*)  (*Then Begin
			LogMessage('Function DownloadPage - Skipping download for Reference page as per configuration.');
			//*)
			//THIS HAS TO STAY BECAUSE OF THE SELENIUM SCRIPT!!!
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Reference.htm|';
			ReferencePageDownloaded := False;
			LogMessage('Function DownloadPage - Value of ReferencePageDownloaded after skipping:|' + BoolToStr(ReferencePageDownloaded))
		(*
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[14] = '0')  (*  //Studio (because no other page to be downloaded contains full Studio info, except CompanyCredits which is still not included)  //*)  (*Then Begin should end here
		//*)

		//Check if the Keywords page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[17] = '0')  (*  //Tags  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for Keywords page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Keywords.htm|';
			KeywordsPageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[17] = '0')  (*  //Tags  //*) Then Begin should end here

		//Check if the Technical page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[26] = '0')  (*  //Features  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for Technical page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Technical.htm|';
			TechnicalPageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[26] = '0')  (*  //Features  //*) Then Begin should end here

		//Check if the Awards page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[24] = '0')  (*  //Awards  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for Awards page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Awards.htm|';
			AwardsPageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[24] = '0')  (*  //Awards  //*) Then Begin should end here

		//Check if the MovieConnections page should be downloaded based on unique ConfigOptions
		If (USE_SAVED_PVDCONFIG) And (ConfigOptions[25] = '0')  (*  //Connections  //*) Then Begin
			LogMessage('Function DownloadPage - Skipping download for MovieConnections page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-MovieConnections.htm|';
			MovieConnectionsPageDownloaded := False;
		End;  //If (USE_SAVED_PVDCONFIG) And (ConfigOptions[25] = '0')  (*  //Connections  //*) Then Begin should end here

		//Check if the Plot Summary page should be downloaded based on relevant options
		If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS) Then Begin
			LogMessage('Function DownloadPage - Skipping download for Plot Summary page as no relevant options are set.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-PlotSummary.htm|';
			PlotSummaryPageDownloaded := False;
		End;  //If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS) Then Begin should end here

		//Check if the CompanyCredits page should be downloaded based on DOWNLOAD_MORE_PAGES
		If (DOWNLOAD_COMPANYCREDITS_PAGE = False) Then Begin  //Check redudance for future eventual separation
			LogMessage('Function DownloadPage - Skipping download for CompanyCredits page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-CompanyCredits.htm|';
			CompanyCreditsPageDownloaded := False;
		End;  //If (DOWNLOAD_COMPANYCREDITS_PAGE = False) Then Begin should end here

		//Check if the Reviews page should be downloaded based on DOWNLOAD_MORE_PAGES
		If (DOWNLOAD_MORE_PAGES = False) Then Begin  //Check redudance for future eventual separation
			LogMessage('Function DownloadPage - Skipping download for Reviews page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Reviews.htm|';
			ReviewsPageDownloaded := False;
		End;  //If (DOWNLOAD_MORE_PAGES = False) Then Begin should end here

		//Check if the Locations page should be downloaded based on DOWNLOAD_MORE_PAGES
		If (DOWNLOAD_MORE_PAGES = False) Then Begin  //Check redudance for future eventual separation
			LogMessage('Function DownloadPage - Skipping download for Locations page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-Locations.htm|';
			LocationsPageDownloaded := False;
		End;  //If (DOWNLOAD_MORE_PAGES = False) Then Begin should end here

		//Check if the ExternalSites page should be downloaded based on DOWNLOAD_MORE_PAGES
		If (DOWNLOAD_MORE_PAGES = False) Then Begin  //Check redudance for future eventual separation
			LogMessage('Function DownloadPage - Skipping download for ExternalSites page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-ExternalSites.htm|';
			ExternalSitesPageDownloaded := False;
		End;  //If (DOWNLOAD_MORE_PAGES = False) Then Begin should end here

		//Check if the CriticReviewsPageDownloaded page should be downloaded based on DOWNLOAD_MORE_PAGES
		If (DOWNLOAD_MORE_PAGES = False) Then Begin  //Check redudance for future eventual separation
			LogMessage('Function DownloadPage - Skipping download for CriticReviewsPageDownloaded page as per configuration.');
			EXCLUDED_FILES := EXCLUDED_FILES + 'downpage-UTF8_NO_BOM-CriticReviews.htm|';
			CriticReviewsPageDownloaded := False;
		End;  //If (DOWNLOAD_MORE_PAGES = False) Then Begin should end here

		//Remove trailing pipe character if present
		If (Length(EXCLUDED_FILES) > 0) And (EXCLUDED_FILES[Length(EXCLUDED_FILES)] = '|') Then Delete(EXCLUDED_FILES, Length(EXCLUDED_FILES), 1);

		//Log the final EXCLUDED_FILES for verification
		LogMessage('Function DownloadPage - EXCLUDED_FILES:|' + EXCLUDED_FILES + '||');

		//If (DOWNLOAD_RELEASE_INFO_PAGE And DOWNLOAD_FULL_CREDITS_PAGE And DOWNLOAD_PARENTAL_GUIDE_PAGE And DOWNLOAD_KEYWORDS_PAGE And DOWNLOAD_TECHNICAL_PAGE And DOWNLOAD_AWARDS_PAGE And DOWNLOAD_CONNECTIONS_PAGE And DOWNLOAD_PLOTSUMMARY_PAGE And DOWNLOAD_COMPANYCREDITS_PAGE) Then Begin
			//Download the additional URL pages using the Selenium script
			LogMessage('Function DownloadPage - Executing Python script to download additional pages URL content.');
			FileExecute('pythonw.exe', '"' + ScriptPath + 'Selenium_Chrome_Movie_Additional_pages_v4.py" "' + URL + '" "' + ScriptPath + BASE_DOWNLOAD_FILE_NO_BOM + '" "' + EXCLUDED_FILES + '"');

			//Initialize currentWait for the ReleaseInfo file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[3] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleReleaseInfo, 'ReleaseInfo', 4000, 2000);
				ReleaseInfoPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of ReleaseInfoPageDownloaded:|' + BoolToStr(ReleaseInfoPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[3] = '0')) Then Begin should end here

			//Initialize currentWait for the FullCredits file
			If Not (((USE_SAVED_PVDCONFIG) And ((ConfigOptions[8] = '0') And (ConfigOptions[10] = '0'))) Or (GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)))) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleFullCredits, 'FullCredits', 4000, 2000);
				FullCreditsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of FullCreditsPageDownloaded:|' + BoolToStr(FullCreditsPageDownloaded));
			End;  //If Not (((USE_SAVED_PVDCONFIG) And ((ConfigOptions[8] = '0') And (ConfigOptions[10] = '0'))) Or (GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)))) Then Begin should end here

			//Initialize currentWait for the ParentalGuide file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[15] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleParentalGuide, 'ParentalGuide', 4000, 2000);
				ParentalGuidePageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of ParentalGuidePageDownloaded:|' + BoolToStr(ParentalGuidePageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[15] = '0')) Then Begin should end here

			//Initialize currentWait for the Keywords file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[17] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleKeywords, 'Keywords', 4000, 2000);
				KeywordsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of KeywordsPageDownloaded:|' + BoolToStr(KeywordsPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[17] = '0')) Then Begin should end here

			//Initialize currentWait for the Technical file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[26] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleTechnical, 'Technical', 4000, 2000);
				TechnicalPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of TechnicalPageDownloaded:|' + BoolToStr(TechnicalPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[26] = '0')) Then Begin should end here

			//Initialize currentWait for the Awards file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[24] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleAwards, 'Awards', 4000, 2000);
				AwardsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of AwardsPageDownloaded:|' + BoolToStr(AwardsPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[24] = '0')) Then Begin should end here

			//Initialize currentWait for the MovieConnections file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[25] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleMovieConnections, 'MovieConnections', 8000, 2000);
				MovieConnectionsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of MovieConnectionsPageDownloaded:|' + BoolToStr(MovieConnectionsPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[25] = '0')) Then Begin should end here

			//Initialize currentWait for the PlotSummary file
			If (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitlePlotSummary, 'PlotSummary', 4000, 2000);
				PlotSummaryPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of PlotSummaryPageDownloaded:|' + BoolToStr(PlotSummaryPageDownloaded));
			End;  //If (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS) Then Begin should end here

			//Initialize currentWait for the Reviews file
			If (DOWNLOAD_MORE_PAGES = True) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleReviews, 'Reviews', 2000, 2000);
				ReviewsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of ReviewsPageDownloaded: ' + BoolToStr(ReviewsPageDownloaded));
			End;  //If (DOWNLOAD_MORE_PAGES = True) Then Begin should end here

			//Initialize currentWait for the CompanyCredits file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[14] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleCompanyCredits, 'CompanyCredits', 4000, 2000);
				CompanyCreditsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of CompanyCreditsPageDownloaded: ' + BoolToStr(CompanyCreditsPageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[14] = '0')) Then Begin should end here

			//Initialize currentWait for the Locations file
			If (DOWNLOAD_MORE_PAGES = True) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleLocations, 'Locations', 4000, 2000);
				LocationsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of LocationsPageDownloaded: ' + BoolToStr(LocationsPageDownloaded));
			End;  //If (DOWNLOAD_MORE_PAGES = True) Then Begin should end here for Locations

			If (DOWNLOAD_MORE_PAGES = True) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleExternalSites, 'ExternalSites', 4000, 2000);
				ExternalSitesPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of ExternalSitesPageDownloaded: ' + BoolToStr(ExternalSitesPageDownloaded));
			End;  //If (DOWNLOAD_MORE_PAGES = True) Then Begin should end here for ExternalSites

			//Initialize currentWait for the CriticReviews file
			If (DOWNLOAD_MORE_PAGES = True) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleCriticReviews, 'CriticReviews', 4000, 2000);
				CriticReviewsPageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of CriticReviewsPageDownloaded: ' + BoolToStr(CriticReviewsPageDownloaded));
			End;  //If (DOWNLOAD_MORE_PAGES = True) Then Begin should end here for CriticReviews

			{
			//Initialize currentWait for the Reference file
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[14] = '0')) Then Begin
				WebText := WaitForPageFile(FilePath + FileTitleReference, 'Reference', 4000, 2000);
				ReferencePageDownloaded := WebText <> '';
				LogMessage('Function DownloadPage - Value of ReferencePageDownloaded: ' + BoolToStr(ReferencePageDownloaded));
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[14] = '0')) Then Begin should end here
			}
		//*)End;  //If (DOWNLOAD_RELEASE_INFO_PAGE And DOWNLOAD_FULL_CREDITS_PAGE And DOWNLOAD_PARENTAL_GUIDE_PAGE And DOWNLOAD_KEYWORDS_PAGE And DOWNLOAD_TECHNICAL_PAGE And DOWNLOAD_AWARDS_PAGE And DOWNLOAD_CONNECTIONS_PAGE And DOWNLOAD_PLOTSUMMARY_PAGE And DOWNLOAD_COMPANYCREDITS_PAGE) Then Begin should end here

		//(*
		//All files are downloaded, proceed with processing
		LogMessage('Function DownloadPage - All files downloaded successfully.');
		//*)

		//Some download data checks
		If (Pos('404 Not Found', Result) > 0) And (Length(Result) < 20000) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - The URL is not in use (404 Not Found).' + #13#10 + 'Go to the provider web to find the good page', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - 404 Not Found|');
			Result := '';  //Fatal error
		End;  //If (Pos('404 Not Found', Result) > 0) And (Length(Result) < 20000) Then Begin should end here

		If (Pos('404 Error - RT', Result) > 0) And (Length(Result) < 20000) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - The URL is not in use (404 Error - RT).' + #13#10 + 'Go to the provider web to find the good page', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - 404 Error - RT|');
			Result := '';  //Fatal error
		End;  //If (Pos('404 Error - RT', Result) > 0) And (Length(Result) < 20000) Then Begin should end here

		If (Pos('Page not found', Result) > 0) And (Length(Result) < 20000) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - The URL is not in use (Page not found).' + #13#10 + 'Go to the provider web to find the good page', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - Page not found|');
			Result := '';  //Fatal error
		End;  //If (Pos('Page not found', Result) > 0) And (Length(Result) < 20000) Then Begin should end here

		If (Pos('405 Method not allowed', Result) > 0) And (Length(Result) < 20000) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - The URL has HTTP method problems (405 Method not allowed).' + #13#10 + 'Go to the provider web to find the good page', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - 405 Method not allowed|');
			Result := '';  //Fatal error
		End;  //If (Pos('405 Method not allowed', Result) > 0) And (Length(Result) < 20000) Then Begin should end here

		(*
		If (Length(Result) < 3000) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - IMDb Most probably blocked loading the page with AWF' + #13#10 + 'Go to the provider web to find the good page, or try to download it again', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - Blocked by IMDb with AWF|');
			Result := '';  //Fatal error
		End;  //If (Length(Result) < 3000) Then Begin should end here
		//*)

		If (Length(Result) < 3000) And (MainPageDownloaded) Then Begin  //Banned IP. WEB_SPECIFIC.
			case MessageBox('Function DownloadPage - IMDb Most probably blocked loading the page with AWF.' + #13#10 + 'Cancel, Retry, or Continue (Ignore)? Note: If you press Ignore, you will not get data from that page, so consider retrying or cancelling and starting the download again!' + #13#10 + #13#10 + 'IMPORTANT: If you choose Retry, you must first externally download the page and only then press Retry.', SCRIPT_FILE_NAME, 2) of

				3:  //Abort -> treat as Cancel
				Begin
					LogMessage('Function DownloadPage END with BLOCKED PAGE===============|');
					Result := '';  //Fatal error
					Exit;
				End;  //Begin 3: //Abort -> treat as Cancel should end here

				4:  //Retry
				Begin
					LogMessage('Function DownloadPage - Retrying download (user will handle externally)...');
					//Reload externally downloaded/corrected page
					Result := ReadPageFile('MainPage', '');
					LogMessage('Function DownloadPage - Was externally downloaded page actually parsed, or AWF page from RAM:|' +Copy(Result, 1, 4000));
				End;  //Begin 4: //Retry should end here

				5:  //Ignore
				Begin
					LogMessage('Function DownloadPage - Ignoring blocked page and continuing...');
					Result := '';  //Continue without valid data
				End;  //Begin 5: //Ignore should end here

			End;  //case MessageBox... of should end here
		End;  //If (Length(Result) < 3000) Then Begin

		If (Pos('Too many requests', Result) > 0) Then Begin  //Banned IP. WEB_SPECIFIC.
			If BYPASS_SILENT Then ShowMessage('Function DownloadPage - The provider has banned your IP (Too many requests).' + #13#10 + 'Go to the provider web and resolve the captcha to prove you are not a robot', SCRIPT_FILE_NAME);
			LogMessage('Function DownloadPage - Banned IP|');
			Result := '';  //Fatal error
		End;  //If (Pos('Too many requests', Result) > 0) Then Begin should end here

	End Else Begin

		LogMessage('Function DownloadPage - All Additional Movie Pages files skipped due to UPDATE_DYNAMIC_VALUES_ONLY');

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function DownloadPage END======================|');

	Exit;
End;//BlockClose
//*)

//(*
Function DownloadImage(URL:AnsiString;OutPutFile:AnsiString): Integer;//BlockOpen
//Returns 1 or 0 if the downloaded image file exists on Exit.
Var
	i: Integer;
	ScriptPath: String;

Begin

	LogMessage('Function DownloadImage BEGIN======================|');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		LogMessage('Function DownloadImage -Global Var: DownloadURL|' + DownloadURL + '||');
		LogMessage('Function DownloadImage - Local Var: URL|' + URL + '||');
		LogMessage('Function DownloadImage - Local Var: OutPutFile|' + OutPutFile + '||');
		ScriptPath := GetAppPath + 'Scripts\';

		//Delete the old downloaded page file. Needed to wait for the curl download included in the PowerShell command
		While FileExists(OutPutFile) Do Begin
			FileExecute('cmd.exe', '/C del "' + OutPutFile + '"');
			LogMessage('Function DownloadImage - Waiting 1s to delete:|' + OutPutFile);
			Wait (1000);
		End;  //While FileExists(OutPutFile) Do Begin should end here

		//Download URL page
		LogMessage('Function DownloadImage - Download with Selenium script to file:|' + OutPutFile + ' the information of:|' + URL + '||');

		FileExecute('pythonw.exe ', '"' + ScriptPath + 'Selenium_Chrome_DownloadImage-v4.py" "' + URL + '" "' + OutPutFile + '"');

		//Wait for the download to finish and ensure the downloaded page exists.
		i := 0;  //INTERNET_TEST_ITERATIONS
		While Not (FileExists(OutPutFile)) Do Begin
			LogMessage('Function DownloadImage - Waiting 2s for the presence of :|' + OutPutFile);
			Wait (2000);
			i := i + 1;
			If i = INTERNET_TEST_ITERATIONS Then Begin  //During image downloads, the script cannot prompt the user for an internet connection because the file might not exist.
				LogMessage('Function DownloadImage END with NOT image downloaded===============|');
				Result := 0;
				Exit;
			End;  //If i = INTERNET_TEST_ITERATIONS Then Begin should end here
		End;  //While Not (FileExists(OutPutFile)) Do Begin should end here
		LogMessage('Function DownloadImage - Complete page file that is now present:|' + OutPutFile);
		Result := 1;
		LogMessage('Function DownloadImage finished processing|');
		Exit;

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function DownloadImage END======================|');

End;//BlockClose
//*)

//(*
Procedure EnsurePosterDownloaded(const HTML: String);//BlockOpen
Var
	curPos: Integer;
	ItemList, ItemValue, ImageFile: String;

Begin

	LogMessage('Procedure EnsurePosterDownloaded BEGIN=====================|');

	If Not DOWNLOAD_POSTERS Then Begin
		LogMessage('Procedure EnsurePosterDownloaded - DOWNLOAD_POSTERS is FALSE, exiting.');
		Exit;
	End;  //If Not DOWNLOAD_POSTERS Then Begin should end here

	If PosterDownloaded Then Begin
		LogMessage('Procedure EnsurePosterDownloaded - Poster already downloaded, exiting.');
		Exit;
	End;  //If PosterDownloaded Then Begin should end here

	//Look for og:image in HTML
	curPos := Pos('"og:image"', HTML);
	LogMessage('Procedure EnsurePosterDownloaded - curPos:|' + IntToStr(curPos));
	If curPos = 0 Then Begin
		LogMessage('Procedure EnsurePosterDownloaded - No "og:image" found in HTML, exiting.');
		Exit;
	End;  //If curPos = 0 Then Begin should end here

	//Extract the image URL snippet
	ItemList := TextBetWeenFirst(HTML, '"og:image"', '>');
	LogMessage('Procedure EnsurePosterDownloaded - ItemList snippet:|' + ItemList);

	//Extract the actual image path (assuming BASE_URL_IMAGE_PRE_TRUE prefix)
	ItemValue := TextBetWeenFirst(ItemList, BASE_URL_IMAGE_PRE_TRUE, '.');
	LogMessage('Procedure EnsurePosterDownloaded - Extracted ItemValue:|' + ItemValue);

	If ItemValue = '' Then Begin
		LogMessage('Procedure EnsurePosterDownloaded - ItemValue empty, no link for the poster, so exiting.');
		Exit;
	End;  //If ItemValue = '' Then Begin should end here

	//Construct full URL for AllMovie (no max height suffix)
	ItemValue := BASE_URL_IMAGE_PRE_TRUE + ItemValue;
	ImageFile := GetAppPath + 'Scripts\' + BASE_DOWNLOAD_FILE_IMAGE_NAME + '-Poster.jpg';

	LogMessage('Procedure EnsurePosterDownloaded - Trying download URL:|' + ItemValue + '.jpg');

	// Try with max height first
	If DownloadImage(ItemValue + '._V1_UY' + IntToStr(MAX_IMAGE_HEIGHT) + '_.jpg', ImageFile) = 1 Then Begin
		AddImageURL(itPoster, ImageFile);
		PosterDownloaded := True;
		LogMessage('Procedure EnsurePosterDownloaded - Poster downloaded successfully at max height.');
	End Else If DownloadImage(ItemValue + '.jpg', ImageFile) = 1 Then Begin
		AddImageURL(itPoster, ImageFile);
		PosterDownloaded := True;
		LogMessage('Procedure EnsurePosterDownloaded - Poster downloaded successfully at base size.');
	End Else Begin
		LogMessage('Procedure EnsurePosterDownloaded - Poster download failed.');
	End;  //If DownloadImage(ItemValue + '._V1_UY' + IntToStr(MAX_IMAGE_HEIGHT) + '_.jpg', ImageFile) = 1 Then Begin should end here

	LogMessage('Procedure EnsurePosterDownloaded END===================|');

End;//BlockClose
//*)

//(*
Function DownloadPageMain(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Main', '');
End;//BlockClose
//*)

//(*
Function DownloadPageReleaseInfo(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('ReleaseInfo', '-ReleaseInfo');
End;//BlockClose
//*)

//(*
Function DownloadPageFullCredits(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('FullCredits', '-FullCredits');
End;//BlockClose
//*)

//(*
Function DownloadPageParentalGuide(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('ParentalGuide', '-ParentalGuide');
End;//BlockClose
//*)

//(*
Function DownloadPageReference(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Reference', '-Reference');
End;//BlockClose
//*)

//(*
Function DownloadPageKeywords(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Keywords', '-Keywords');
End;//BlockClose
//*)

//(*
Function DownloadPageTechnical(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Technical', '-Technical');
End;//BlockClose
//*)

//(*
Function DownloadPageAwards(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Awards', '-Awards');
End;//BlockClose
//*)

//(*
Function DownloadPageMovieConnections(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('MovieConnections', '-MovieConnections');
End;//BlockClose
//*)

//(*
Function DownloadPagePlotSummary(URL: AnsiString): String;//BlockOpen

Begin

	If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS Or GET_FULL_PLOT) Then Begin
		LogMessage('Function DownloadPagePlotSummary - Skipping download as no relevant options are set.');
		Result := '';
		Exit;
	End;  //If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS Or GET_FULL_PLOT) Then Begin should end here

	Result := ReadPageFile('PlotSummary', '-PlotSummary');
End;//BlockClose
//*)

//(*
Function DownloadPageReviews(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Reviews', '-Reviews');
End;//BlockClose
//*)

//(*
Function DownloadPageCompanyCredits(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('CompanyCredits', '-CompanyCredits');
End;//BlockClose
//*)

//(*
Function DownloadPageLocations(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('Locations', '-Locations');
End;//BlockClose
//*)

//(*
Function DownloadPageCriticReviews(URL: AnsiString): String;//BlockOpen
Begin
	Result := ReadPageFile('CriticReviews', '-CriticReviews');
End;//BlockClose
//*)

//(*
Function ConfDate1(OrigDate:String): String;//BlockOpen
Var
	i, rNum: Integer;
	d, m, y: String;
	TabMonths, TabFullMonths:Array of String;
	TabDate: TWideArray;

Begin

	TabMonths := ['Null', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
	TabFullMonths := ['Null', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'];
	rNum := ExplodeString(OrigDate, TabDate, '/');
	LogMessage('Function ConfDate1 => rNum:|' + IntToStr(rNum));
	If (rNum <= 1) Then Begin
		rNum := ExplodeString(OrigDate, TabDate, ' ');
		LogMessage('Function ConfDate1 => rNum:|' + IntToStr(rNum));
	End;  //If (rNum <= 1) Then Begin should end here
	If (rNum > 0) Then Begin
		LogMessage('Function ConfDate1 => TabDate 0:|' + TabDate[0]);
		LogMessage('Function ConfDate1 => TabDate 1:|' + TabDate[1]);
		LogMessage('Function ConfDate1 => TabDate 2:|' + TabDate[2]);
		If (Length(TabDate[0]) > 0) Then Begin
			If (Length(TabDate[0]) > 2) Then Begin
				m := TabDate[0];
				For i := 1 to 12 Do Begin
					If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin
						m := IntToStr(i);
						Break;
					End;  //If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin should end here
				End;  //For i := 1 to 12 Do Begin should end here
				LogMessage('Function ConfDate1 => Months:|' + m);
				//d := Copy(TabDate[1], 1, Length(TabDate[1])-1);
				d := TabDate[1];
				If Copy(TabDate[1], 1, 1) = '0' Then d :=  Copy(TabDate[1], 2, 1);
				y := TabDate[2];
			End Else If (Length(TabDate[1]) > 0) Then Begin
				y :=  TabDate[2];
				m :=  TabDate[1];
					For i := 1 to 12 Do Begin
						If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin
							m := IntToStr(i);
							Break;
						End;  //If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin should end here
					End;  //For i := 1 to 12 Do Begin should end here
				d :=  TabDate[0];
				If Copy(TabDate[0], 1, 1) = '0' Then d :=  Copy(TabDate[0], 2, 1);
				LogMessage('Function ConfDate1 => Year:|' + y + ' month:|' + m + ' day:|' + d);
			End Else Begin  //End Else If (Length(TabDate[1]) > 0) Then Begin ends here
				y := '';
				m := '';
				d := '';
			End;  //If (Length(TabDate[0]) > 2) Then Begin ends here
		End Else Begin
			ExplodeString(OrigDate, TabDate, '/');
			y := Copy(OrigDate, 7, 4);
			m := Copy(OrigDate, 3, 3);
				For i := 1 to 12 Do Begin
					If m = Copy(TabMonths[i], 1, 3) Then Begin
						m := IntToStr(i);
						Break;
					End;  //If m = Copy(TabMonths[i], 1, 3) Then Begin should end here
				End;  //For i := 1 to 12 Do Begin should end here
			d := Copy(OrigDate, 1, 2);
				If Copy(TabDate[0], 1, Length(TabDate[0])-1) = '0' Then d :=  Copy(TabDate[0], 2, Length(TabDate[0])-1);
			LogMessage('Function ConfDate1 - Year:|' + y + ' month:|' + m + ' day:|' + d);
		End;  //If (Length(TabDate[0]) > 0) Then Begin should end here
		Result := d + '.' + m + '.' + y;
	End;  //If (rNum > 0) Then Begin should end here
End;//BlockClose
//*)

//(*
Function ConfDate2(OrigDate:String): String;
Var
	i, rNum, curPos: Integer;
	d, m, y: String;
	TabMonths, TabFullMonths: Array of String;
	TabDate: TWideArray;

Begin

	TabMonths := ['Null', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
	TabFullMonths := ['Null', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'];

	//Clean up input by removing non-date content
	OrigDate := TextBetween(OrigDate, '', ' (', False, curPos);
	OrigDate := Trim(OrigDate);  //Trim extra spaces

	rNum := ExplodeString(OrigDate, TabDate, '/');
	If (rNum <= 1) Then Begin
		rNum := ExplodeString(OrigDate, TabDate, ' ');
	End;  //If (rNum <= 1) Then Begin should end here

	//Ensure we have at least a month and year
	If (rNum < 2) Then Begin
		LogMessage('Function ConfDate2 - Invalid date format:|' + OrigDate);
		Exit;  //Return an empty string if the date format is invalid
	End;  //If (rNum < 2) Then Begin should end here

	//Initialize variables
	m := '';
	d := '01';  //Default to the first day of the month if day is missing
	y := '';

	//Extract month and year
	If (Length(TabDate[0]) > 0) Then Begin
		If (Length(TabDate[0]) > 2) Then Begin
			m := TabDate[0];  //Month is in the first position
			y := TabDate[1];  //Year is in the second position
		End Else Begin
			m := TabDate[0];  //Month is in the first position
			y := TabDate[1];  //Year is in the second position
		End;  //If (Length(TabDate[0]) > 2) Then Begin should end here

		//Convert month name to numeric
		For i := 1 to 12 Do Begin
			If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin
				m := IntToStr(i);
				Break;
			End;  //If ((m = TabMonths[i]) Or (m = TabFullMonths[i])) Then Begin should end here
		End;  //For i := 1 to 12 Do Begin should end here

		If Length(m) = 1 Then m := '0' + m;  //Ensure month has two digits
	End;  //If (Length(TabDate[0]) > 0) Then Begin should end here

	//Validate the year
	If y = '' Then Begin
		LogMessage('Function ConfDate2 - Year missing:|' + OrigDate);
		Exit;
	End;  //If y = '' Then Begin should end here

	//Format the date as yyyy-mm-dd
	Result := y + '-' + m + '-' + d;
End;//BlockClose
//*)

//(*
Function ConfDateAM(OrigDate: String): String;
Var
	rNum, i: Integer;
	d, m, y: String;
	yy, mm, dd: Word;
	TabMonths, TabFullMonths: Array of String;
	TabDate: TWideArray;

Begin

	TabMonths := ['Null', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
	TabFullMonths := ['Null', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'];

	OrigDate := Trim(OrigDate);
	Result := OrigDate;  //fallback

	//Case 1: dd/mm/yyyy
	rNum := ExplodeString(OrigDate, TabDate, '/');
	If rNum = 3 Then Begin
		d := TabDate[0];
		m := TabDate[1];
		y := TabDate[2];
		Result := d + '.' + m + '.' + y;
		Exit;
	End;  //If rNum = 3 Then Begin should end here

	//Case 2: MonthName Day (no year)
	rNum := ExplodeString(OrigDate, TabDate, ' ');
	If rNum = 2 Then Begin
		m := TabDate[0];
		d := TabDate[1];

		//Inject current year using DecdDate
		DecdDate(CurrentDateTime, yy, mm, dd);
		y := IntToStr(yy);

		//Convert month name to number
		For i := 1 to 12 Do Begin
			If (m = TabMonths[i]) Or (m = TabFullMonths[i]) Then Begin
				m := IntToStr(i);
				Break;
			End;  //If (m = TabMonths[i]) Or (m = TabFullMonths[i]) Then Begin should end here
		End;  //For i := 1 to 12 Do Begin should end here

		Result := d + '.' + m + '.' + y;
		Exit;
	End;  //If rNum = 2 Then Begin should end here

	//Case 3: MonthName Year (no day)
	If rNum = 2 Then Begin
		m := TabDate[0];
		y := TabDate[1];
		d := '1';  //default to first day
		For i := 1 to 12 Do Begin
			If (m = TabMonths[i]) Or (m = TabFullMonths[i]) Then Begin
				m := IntToStr(i);
				Break;
			End;  //If (m = TabMonths[i]) Or (m = TabFullMonths[i]) Then Begin should end here
		End;  //For i := 1 to 12 Do Begin should end here
		Result := d + '.' + m + '.' + y;
		Exit;
	End;  //If rNum = 2 Then Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx0(AText:String): String;//BlockOpen
	//Ivek23 function for get faster the script
Var
	B, E: Integer;
Begin
	Result := AText;
	B := PosFrom('<', Result, 1);
	E := PosFrom('>', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 1);
		B := Pos('<', Result);
		E := Pos('>', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here
End;//BlockClose
//*)

//(*
Function RemoveTagsEx(AText:String): String;//BlockOpen
//Ivek23 function for get faster the PLOTKEYWORDS script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<', Result, 1);
	E := PosFrom('>', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 1);
		B := Pos('<', Result);
		E := Pos('>', Result);
	End;  //While (B > 0) And (B<E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx_1(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<', Result, 1);
	E := PosFrom('>', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 1);
		B := Pos('<', Result);
		E := Pos('>', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end 

End;//BlockClose
//*)

//(*
Function RemoveTagsEx_2(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<h3 class="', Result, 1);
	E := PosFrom('div">', Result, B);
	//E := PosFrom('</h3>', Result, B);
	While (B > 0) And (B < E) Do Begin
		//Delete(Result, B, E - B + 5);
		Delete(Result, B, E - B + 5);
		B := Pos('<h3 class="', Result);
		E := Pos('div">', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx1(AText:String): String;//BlockOpen
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<div id="', Result, 9);
	E := PosFrom('" class="', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 9);
		B := Pos('<div id="', Result);
		E := Pos('" class="', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx_146(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<div class="', Result,1);
	E := PosFrom('>', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 1);
		B := Pos('<div class="', Result);
		E := Pos('>', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx_151(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<li role="', Result, 1);
	E := PosFrom('>', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 1);
		B := Pos('<li role="', Result);
		E := Pos('>', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx_152(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<span style="', Result, 1);
	E := PosFrom('</span>', Result, B);
	While (B > 0) And (B < E) Do Begin
		//Delete(Result, B, E - B + 2);
		Delete(Result, B, E - B + 7);
		B := Pos('<span style="', Result);
		E := Pos('</span>', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx2(AText:String): String;//BlockOpen
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<a href="', Result, -3);
	E := PosFrom('/">', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E-B + 3);
		B := Pos('<a href="', Result);
		E := Pos('/">', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function RemoveTagsEx00(AText:String): String;//BlockOpen
//Ivek23 function for get faster the script
Var
	B, E: Integer;

Begin

	Result := AText;
	B := PosFrom('<link url="', Result, 1);
	E := PosFrom('">', Result, B);
	While (B > 0) And (B < E) Do Begin
		Delete(Result, B, E - B + 2);
		B := Pos('<link url="', Result);
		E := Pos('">', Result);
	End;  //While (B > 0) And (B < E) Do Begin should end here

End;//BlockClose
//*)

//(*
Function HTMLValue(HTML:String;StartPos, endPos: Integer;StartValue, EndValue:String):String;//BlockOpen
Var
	ValueStart, ValueEnd: Integer;

Begin

	ValueStart := PosFrom(StartValue, HTML, StartPos);
	If (ValueStart > 0) And ((ValueStart < endPos) Or (endPos = 0)) Then Begin
		ValueStart := ValueStart + Length(StartValue);
		ValueEnd := PosFrom(EndValue, HTML, ValueStart);
		Result := RemoveTags(Trim(Copy(HTML, ValueStart, ValueEnd-ValueStart)), False);
	End Else Begin
		Result := '';
	End;  //If (ValueStart > 0) And ((ValueStart < endPos) Or (endPos = 0)) Then Begin should end here

End;//BlockClose
//*)

//(*
Function HTMLValue_2(HTML:String;StartPos, endPos: Integer;StartValue, EndValue:String): String;//BlockOpen
Var
	ValueStart, ValueEnd: Integer;

Begin

	ValueStart := PosFrom(StartValue, HTML, StartPos);
	If (ValueStart > 0) And ((ValueStart < endPos) Or (endPos = 0)) Then Begin
		ValueStart := ValueStart + Length(StartValue);
		ValueEnd := PosFrom(EndValue, HTML, ValueStart);
		Result := Copy(HTML, ValueStart, ValueEnd-ValueStart);
	End Else Begin
		Result := '';
	End;  //If (ValueStart > 0) And ((ValueStart < endPos) Or (endPos = 0)) Then Begin should end here

End;//BlockClose
//*)

//(*
Function CustomStringReplace(const Source: String; const OldPattern: array of String; const NewPattern: array of String): String;//BlockOpen
Var
	i: Integer;
	ResultString: String;

Begin

	ResultString := Source;
	For i := Low(OldPattern) to High(OldPattern) Do Begin
		ResultString := StringReplace(ResultString, OldPattern[i], NewPattern[i], True, False, True);
	End;  //For i := Low(OldPattern) to High(OldPattern) Do Begin should end here
	Result := ResultString;

End;//BlockClose
//*)

//(*
Function ContainsNonLatinUTF8(const S: String): Boolean;//BlockOpen

Var
	i, b: Integer;

Begin

	Result := False;
	i := 1;

	While i <= Length(S) Do Begin

		b := Ord(S[i]);

		//ASCII CHARACTER
		If b < 128 Then Begin
			Inc(i);
			Continue;
		End;  //If b < 128 Then Begin should end here

		//2-BYTE UTF-8 SEQUENCE (ALLOWED: LATIN EXTENDED - c c š ž d etc.)
		If (b >= 194) And (b <= 223) Then Begin

			//CHECK CONTINUATION BYTE
			If (i + 1 <= Length(S)) And (Ord(S[i+1]) >= 128) And (Ord(S[i+1]) <= 191) Then Begin
				Inc(i);
				Inc(i);
				Continue;
			End Else Begin
				//BROKEN SEQUENCE ? TREAT AS NON-LATIN
				Result := True;
				Exit;
			End;  //If (i + 1 <= Length(S)) And (...) Then Begin should end here

		End;  //If (b >= 194) And (b <= 223) Then Begin should end here

		//3-BYTE OR MORE UTF-8 SEQUENCE ? NON-LATIN (CHINESE, ARABIC, ARMENIAN, ETC.)
		If (b >= 224) Then Begin
			Result := True;
			Exit;
		End;  //If (b >= 224) Then Begin should end here

		//FALLBACK SAFETY
		Inc(i);

	End;  //While i <= Length(S) Do Begin should end here

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBSearchTitle(titleValue:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prDownload; (Global var DownloadURL=IMDB page) if there is one results.
	//Result := prList; if there are several results. (Doesn't work with Preferences/Plugings/Silent Mode).
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;

Var
	curPos, ResultsNumber, i: Integer;
	Title, MovieURL, PreviewURL, Line, ThumbnailURL, ImageFile: String;
	SearchResultsFile: String;
	SearchResults: TWideArray;
	ScriptPath, Command, HTML: String;
	FilePath: String;
	currentWait: Integer;
	CancelSearchFile: String;
	//MediaType: String;

Begin

	LogMessage('Function ParsePage_IMDBSearchTitle BEGIN======================|');

	If UPDATE_DYNAMIC_VALUES_ONLY Then Begin

		ShowMessage('Function ParsePage_IMDBSearchTitle: You cannot search While "Update only dynamic values..." is selected in Script Configurator', SCRIPT_FILE_NAME);
		Result := prError;  //Stop processing
		Exit;
	End;  //If UPDATE_DYNAMIC_VALUES_ONLY Then Begin should end here

	LogMessage('Function ParsePage_IMDBSearchTitle - titleValue that is passed:|' + TitleValue);
	LogMessage('Function ParsePage_IMDBSearchTitle - Global Var: Mode|' + IntToStr(Mode) + '||');
	LogMessage('Function ParsePage_IMDBSearchTitle - Global Var: DownloadURL in|' + DownloadURL + '||');
	//Path to the Selenium script and search results file
	ScriptPath := GetAppPath + 'Scripts\';
	SearchResultsFile := ScriptPath + 'Tmp\IMDb_search_results.txt';
	CancelSearchFile := ScriptPath + 'Tmp\IMDb_cancel_search.txt';

	//Removed redundant file deletion checks, relying on PurgeTmpFiles procedure at the start.

	//Call PurgeTmpFiles at the very Beginning to ensure it's executed first
	PurgeTmpFiles(ScriptPath + 'Tmp\');

	//Log messages as needed
	//LogMessage('Function ParsePage_IMDBSearchTitle - Waiting 1s to delete:|' + SearchResultsFile);
	Wait (1000);

	//(*
	//Execute the Selenium script
	LogMessage('Function ParsePage_IMDBSearchTitle - Downloading with Selenium to file:|' + SearchResultsFile + ' the information of:|' + titleValue + '||');
	FileExecute('pythonw.exe', '"' + ScriptPath + 'Selenium_Chrome_Search-v4.py" "titleIMDb" "' + titleValue + '"');
	LogMessage('Function ParsePage_IMDBSearchTitle - Downloaded with Selenium to file:|' + SearchResultsFile + ' the information of:|' + titleValue + '||');

	//Wait for the Selenium script to create the cancel search file (up to 10 seconds total)
	i := 0;
	While (i < 2) And Not (FileExists(CancelSearchFile)) Do Begin
		LogMessage('Function ParsePage_IMDBSearchTitle - Waiting 30 seconds for cancel search file:|' + CancelSearchFile);
		Wait (30000);  //Wait 30 seconds - the same amount of time for OK countdown in Python search script
		i := i + 1;  //Increment counter
	End;  //While (i < 2) And Not (FileExists(CancelSearchFile)) Do Begin should end here

	//Handle if the cancel file is found
	If FileExists(CancelSearchFile) Then Begin
		LogMessage('Function ParsePage_IMDBSearchTitle - Cancel search file detected:|' + CancelSearchFile);
		//MessageBox('Function ParsePage_IMDBSearchTitle - Search has been cancelled.', SCRIPT_FILE_NAME, 0);  //Notify user of cancellation
		Result := prError;
		Exit;  //Exit the process
	End;  //If FileExists(CancelSearchFile) Then Begin should end here

	//If no cancel file is detected, simply continue without any message
	LogMessage('Function ParsePage_IMDBSearchTitle - Cancel search file not detected. Continuing the process.');


	//Initialize currentWait for the search results file to be created
	currentWait := 2000;  //Start with 2 seconds
	//Wait for the Selenium script to finish and the search results file to be created
	i := 0;
	While Not FileExists(SearchResultsFile) Do Begin
		LogMessage('Function ParsePage_IMDBSearchTitle - Waiting ' + IntToStr(currentWait div 1000) + 's for search results file:|' + SearchResultsFile);
		Wait (currentWait);

		//Increment the wait time for the next iteration
		case i of
			0: currentWait := 10000;  //10 seconds
			1: currentWait := 5000;  //5 seconds
			2: currentWait := 10000;  //10 seconds
			3: currentWait := 10000;  //10 seconds
			4: currentWait := 15000;  //15 seconds
			5: currentWait := 15000;  //15 seconds
		End;  //case i of should end here
		i := i + 1;

		If i = INTERNET_TEST_ITERATIONS Then Begin
			case MessageBox('IMDb Function ParsePage_IMDBSearchTitle - Too many faulty attempts to internet connection for the Search Results Page.' + #13#10 + 'Cancel, Retry, or Continue (Ignore)? NOTE: IF YOU PRESS IGNORE YOU WILL NOT GET DATA FROM THAT PAGE, SO CONSIDER TO RETRY OR TO CANCEL AND START DOWNLOAD AGAIN!', SCRIPT_FILE_NAME, 2) of
				3:  //Abort -> treat as Cancel
				Begin
					LogMessage('Function ParsePage_IMDBSearchTitle for the Search Results Page END with NOT INTERNET connection===============|');
					Result := prError;
					Exit;
				End;  //Begin 3: //Abort -> treat as Cancel should end here
				4:  //Retry
				Begin
					i := 0;
					currentWait := 2000;  //Reset to initial wait time
				End;  //Begin 4: //Retry should end here
				5:  //Ignore -> create dummy file
				Begin
					LogMessage('Function ParsePage_IMDBSearchTitle - Creating dummy RT SearchResults HTML file due to Ignore selection...');
					with TStringList.Create Do Begin
						try
							Add('<html><body>Dummy RT SearchResults due to user Ignore.</body></html>');
							SaveToFile(SearchResultsFile);
						finally
							Free;
						End;  //try-finally should end here
					End;  //with TStringList.Create Do Begin should end here
					Break;  //Exit the while loop since we now have a dummy file
				End;  //Begin 5: //Ignore -> create dummy file should end here
			End;  //case MessageBox... of should end here
		End;  //If i = INTERNET_TEST_ITERATIONS Then Begin should end here
	End;  //While Not FileExists(SearchResultsFile) Do Begin should end here

	//Read the search results from the file into a string
	HTML := FileToString(SearchResultsFile);
	LogMessage('Function ParsePage_IMDBSearchTitle - SearchResultsFile found:|' + SearchResultsFile);
	HTML := ConvertEncoding(HTML, 65001);  //65001 utf-8 Unicode (UTF-8) ---> https://learn.microsoft.com/en-us/windows/win32/intl/code-page-identifiers

	//LogMessage('Function ParsePage_IMDBSearchTitle - Local Var: WebText (BASE_DOWNLOAD_FILE_NO_BOM) in DownloadPage|' + WebText + '||');  //Debug statement
	LogMessage('Function ParsePage_IMDBSearchTitle - ConvertEncoding found:|' + HTML);
	MediaTypeHTML := HTML //We need this to get directors when TV Series, because we integrated Series and Movies script

	//Split the search results into an array
	ResultsNumber := ExplodeString(HTML, SearchResults, #13#10);  //Assuming each result is on a new line
	LogMessage('Function ParsePage_IMDBSearchTitle - Number of results found:|' + IntToStr(ResultsNumber));

	//(*
	//Process each result
	If ResultsNumber = 0 Then Begin
		LogMessage('Function ParsePage_IMDBSearchTitle - No Title results');
		If BYPASS_SILENT Then ShowMessage('Function ParsePage_IMDBSearchTitle - No results found on IMDb nor via DuckDuckGo for:|' + titleValue + '. ' + #13#10 + #13#10 + 'Please try manual search.', SCRIPT_FILE_NAME);  //Show the entire message
		Result := prError;  //Set the result to error
		Exit;  //Exit the function to break the script

	End Else Begin  //There are search results

		//(*
		//If there is only one result
		If ResultsNumber = 1 Then Begin
			If Pos('No results found on primary site nor via DuckDuckGo for', HTML) > 0 Then Begin
				LogMessage('Function ParsePage_IMDBSearchTitle - No Movie results');
				If BYPASS_SILENT Then ShowMessage('Function ParsePage_IMDBSearchTitle - No results found on IMDb nor via DuckDuckGo for:|' + titleValue + '. ' + #13#10 + #13#10 + 'Please try manual search.', SCRIPT_FILE_NAME);  //Show the entire message
				Result := prError;  //Set the result to error
				Exit;  //Exit the function to break the script
			End;  //If Pos('No results found on primary site nor via DuckDuckGo for', HTML) > 0 Then Begin should end here

			Line := SearchResults[0];
			LogMessage('Function ParsePage_IMDBSearchTitle - Line:|' + Line);
			MovieURL := Copy(Line, Pos(' -&&&- ', Line) + Length(' -&&&- '), PosFrom(' -&&&- ', Line, Pos(' -&&&- ', Line) + Length(' -&&&- ')) - (Pos(' -&&&- ', Line) + Length(' -&&&- ')));
			LogMessage('Function ParsePage_IMDBSearchTitle - MovieURL:|' + MovieURL);

			//DownloadURL := MovieURL;
			//Apply CHEAT_PREFIX_URL to avoid HTTPS issue
			DownloadURL := StringReplace(MovieURL, CHEAT_PREFIX_URL, '', True, False, False);
			//DownloadURL := StringReplace(DownloadURL, 'http:', 'https:', True, True, False);
			LogMessage('Function ParsePage_IMDBSearchTitle - DownloadURL MovieURL, CHEAT_PREFIX_URL, '''', True, False, False :|' + DownloadURL);
			//Apply CHEAT_PREFIX_URL to avoid HTTPS issue
			DownloadURL := CHEAT_PREFIX_URL + MovieURL;
			DownloadURL := StringReplace(DownloadURL, CHEAT_PREFIX_URL, '', True, False, False);
			DownloadURL := StringReplace(DownloadURL, 'http:', 'https:', True, True, False);  //The direct url needed (no https redirection)
			LogMessage('Function ParsePage_IMDBSearchTitle - DownloadURL:|' + DownloadURL);
			Result := prDownload;
			LogMessage('Function ParsePage_IMDBSearchTitle - After parsing search Title, only one result detected');

		End Else Begin  //More than one search result
		//*)

			Result := prList;  //Set to prList if multiple results are found don't work with Preferences/Plugins/Silent Mode
			LogMessage('Function ParsePage_IMDBSearchTitle - After parsing search Movie go to choose List Results');
			LogMessage('Function ParsePage_IMDBSearchTitle - Parsing search Movie results');
			For i := 0 To ResultsNumber - 1 Do Begin
				Line := SearchResults[i];
				LogMessage('Function ParsePage_IMDBSearchTitle - Parsing Line Movie results:|' + Line);

				//(*
				//Get MovieURL
				MovieURL := Copy(Line, Pos(' -&&&- ', Line) + Length(' -&&&- '), PosFrom(' -&&&- ', Line, Pos(' -&&&- ', Line) + Length(' -&&&- ')) - (Pos(' -&&&- ', Line) + Length(' -&&&- ')));  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBSearchTitle - Get MovieURL  (Always must it has):|' + MovieURL);
				//If true HTPPS link PVdB gives "Socket Error # 11001"
				//If ancient http, get redirected and give "IOHandler value is not valid
				//If invalid url, "HTTP/1.1 400 Bad Request"
				//Apply the cheat prefix URL for handling HTTPS issue
				MovieURL := CHEAT_PREFIX_URL + MovieURL;  //'Cheat' URL to avoid HTTPS issue in GET return.
				LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results CHEAT URL:|' + MovieURL + '||');

				//Get Title
				Title := Copy(Line, 4, Pos(' -&&&- ', Line) - 4);  //Extract title name
				LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results Title:|' + Title + '||');

				//Check for the Thumbnail and download if available
				If POSTER_IN_SEARCH Then Begin
				//Check for "No thumbnail"
					If Pos('No thumbnail', Line) > 0 Then Begin
						ImageFile := GetAppPath + 'Scripts\' + 'NoImage2AvailableForPVD.png';
						PreviewURL := ImageFile;
					End Else Begin  //There are thumbnails
						//Extract Thumbnail URL
						ThumbnailURL := Copy(Line, PosFrom(' -&&&- ', Line, Pos(' -&&&- ', Line) + Length(' -&&&- ')) + Length(' -&&&- '), PosFrom(' -&&&- ', Line, PosFrom(' -&&&- ', Line, Pos(' -&&&- ', Line) + Length(' -&&&- ')) + Length(' -&&&- ')) - (PosFrom(' -&&&- ', Line, Pos(' -&&&- ', Line) + Length(' -&&&- ')) + Length(' -&&&- ')));
						LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results ThumbnailURL:|' + ThumbnailURL + '||');
						//Download Thumbnail
						If ThumbnailURL <> '' Then Begin
							ImageFile := GetAppPath + 'Scripts\' + BASE_DOWNLOAD_FILE_IMAGE_NAME + '-SearchResult-' + IntToStr(i) + '.jpg';
							If 1 = DownloadImage(ThumbnailURL, ImageFile) Then Begin
								LogMessage('Function ParsePage_IMDBSearchTitle - Downloaded Thumbnail:|' + ThumbnailURL + '||');
								Wait (1000);  //To stabilize image
								PreviewURL := ImageFile;
							End;  //If 1 = DownloadImage(ThumbnailURL, ImageFile) Then Begin should end here
						End Else Begin  //No thumbnail urls found
							PreviewURL := '';
						End;  //If ThumbnailURL <> '' Then Begin should end here
					End;  //If Pos('No thumbnail', Line) > 0 Then Begin should end here
				End Else Begin  //POSTER_IN_SEARCH is set to False
					PreviewURL := '';
				End;  //If POSTER_IN_SEARCH Then Begin should end here

				LogMessage('Function ParsePage_IMDBSearchTitle - Finishing Title trying MediaType||');
				//Check if "Title Type: " exists and parse the MediaType
				If Pos('Title Type: ', Line) > 0 Then Begin
					MediaType := Copy(Line, Pos('Title Type: ', Line) + Length('Title Type: '), Length(Line));
					LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results MediaType Line:|' + Line + '||');
					LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results MediaType Copy:|' + MediaType + '||');
					MediaType := Trim(MediaType);
					LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results MediaType Trim:|' + MediaType + '||');
				End Else Begin
					//If "Title Type:" is not found, set default to "Movie"
					MediaType := 'MediaType not Found';
				End;  //If Pos('Title Type: ', Line) > 0 Then Begin should end here

				LogMessage('Function ParsePage_IMDBSearchTitle - Parse Results MediaType:|' + MediaType + '||');
				LogMessage('Function ParsePage_IMDBSearchTitle - Exiting MediaType||');


				AddSearchResult(Title + ' -> [check the real link below, because here we have to cheat IMDB]', '', '', MovieURL, PreviewURL);
				//AddSearchResult(Title, '', '', MovieURL, '');
				AddSearchResult('========================================== ', '', '', '', '');
				AddSearchResult('========================================== ', '', '', '', '');
				//Check the real link for the title
				If CHECK_WEBSITE Then AddSearchResult('  Check the real link for the ' + MediaType + ' - ' + Title + ', whose page is:|' + StringReplace(MovieURL, CHEAT_PREFIX_URL, '', True, False, False), '', '', StringReplace(MovieURL, CHEAT_PREFIX_URL, '', True, False, False), '');

				curPos := PosFrom('<div class="lister-item mode-detail">', HTML, curPos);  //String which opens the Web Result item List data. WEB_SPECIFIC
				//AddSearchResult('		~ ~  *Search IMDb*   ~ ~', '', '', '', '');  //Adds search results to allow the user to search IMDb directly.
				//AddSearchResult(' ====== ', '', '', '', '');
				//AddSearchResult(' "Search Results" on Imdb.com ', ' **Search IMDb**', '', 'https://www.imdb.com/search/title/?title=' + StringReplace(GetFieldValueXML('title'), ' ', ' + ', True, True, False), '');
				//Add Search Result for IMDb Search:
				//If result is found
				AddSearchResult('========================================== ', '', '', '', '');
				AddSearchResult('========================================== ', '', '', '', '');
				AddSearchResult(' Search results page on IMDb for the ' + MediaType + ' - ' + Title, '', '', 'https://www.imdb.com/search/title/?title=' + Title + '&count=50', '');  //&count=50: Appends a parameter to the URL to request 50 search results per page. This is typically used in the context of making a search request to IMDb up to 50 results. We use general search because we integrated Series and Movies into single script.
				LogMessage('Function ParsePage_IMDBSearchTitle -   Search results page on IMDb for the ' + MediaType + ' - ' + Title + ':|' + 'https://www.imdb.com/search/title?title=' + Title + '&title_type=feature&release_date=%y&view=simple&count=50');
				AddSearchResult('========================================== ', '', '', '', '');
				AddSearchResult('========================================== ', '', '', '', '');  //Adds a placeholder result, for visual separation or formatting in the search results list.
				//*)

			//(*
			End;  //For i := 0 To ResultsNumber - 1 Do Begin should end here
			//*)

			LogMessage('Function ParsePage_IMDBSearchTitle - Adding SearchResult: Title=' + Title + ', MovieURL=' + MovieURL);
			//Result := prList;
			LogMessage('Function ParsePage_IMDBSearchTitle - After confirming multiple results, set Result to prList:|' + IntToStr(Result));
		End;  //If ResultsNumber = 1 Then Begin should end here
	End;  //If ResultsNumber = 0 Then Begin should end here

	//*)

	LogMessage('Function ParsePage_IMDBSearchTitle END=====================||');
	Exit;

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieBASE(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: ~title~, ~year~, ~origtitle~, ~poster~ / ~imdbrating~, ~IMDB_Votes~ (Custom Field) / ~TOP_250~(Custom Field) /
	//If Not (GET_FULL_CREDIT): ~crew~ctDirectors, ctWriters, ctComposers, ctProducers(Not in base page), ctActors
	//~description~ / ~category~ "keywords" / ~tagline~ / ~genre~
	//If Not (GET_FULL_MPAA) ~mpaa~
	//~country~ / ~rdate~ in country's provider local IP geolocation
	//If Not (GET_FULL_AKA) ~aka~.
	//~budget~ / ~money~ / ~studio~ "Production Co"
	//If Not (GET_FULL_FEATURES) ~features~

Var
	curPos, endPos, index, debug_pos1: Integer;
	StartPos, Hours, Minutes: Integer;
	ItemValue, ItemValue0, ItemValue1, ItemValue2, ItemValue99, ItemList, ImageFile, HoursStr, MinutesStr: String;
	MovieURL, titleValue, yearValue, yearsValue: String;
	Name, Role, PersonURL: String;
	ItemList2, ItemList12, day_s, month_s, year_s: String;
	ImageFiles: String;
	ItemList1, ItemList11: String;
	ItemArray: TWideArray;
	ReviewContent, FullReview: String;
	AltDescription: String;
	ConfigOptions: TWideArray;
	MoneyValue: String;
	connStartPos, connendPos, linkStartPos, linkendPos, textStartPos, textendPos, yearStartPos, yearendPos, i: Integer;
	Connections, connType, connHTML, allItemValues, linkURL, linkText, year: String;
	connectionTypes: array of String;
	seriesValue, yearsValue1, yearsValue11: String;
	//MediaTypeBase: String;
	EpisodesNumber, SeasonsNumber, SeasonNumberDigit, AllSeasonLinks, SeasonYear, SeasonsYearsList, AllYearLinks, IMDBSeasonsURL: String;
	ScriptPath, EpisodeListFile, WebText: String;
	Line, Season, Episode, currentSeason, epTitle, epURL, epAiredDate, epYear, epPlot, epRating, epVotes, epImageURL: String;
	EpisodeLines: Array of String;
	EpisodesNumberInt: Integer;
	currentWait: Integer;
	FilePath: String;
	EpisodeListFullPath: String;
	ReviewTitle, ReviewBody, ReviewAuthor, ReviewRating, cardHTML, AllReviews, tmpStr: String;
	localPos, tmpPos, cardStart, cardEnd, nextStart, updateCount, extraCount, totalCount, tagendPos: Integer;
	ReviewsSection, UserReviewURL, UserReviewText, UserReviewLink, CriticReviewURL, CriticReviewText, CriticReviewLink, ItemValue220: String;
	subPos, subStart, subEnd: Integer;
	connValue: String;
	LocalTitleValue, OrigTitleValue, akaValue: String;
	sEpisodes, sYear: String;
	AwMovieYearStr, Date: String;
	ExtractedYearStr, AwMovieYear, CurrentYear: Integer;
	DateParts: TWideArray;
	LastKnownTop250, PreviousTop250, LastKnownTop250TV: String;
	ItemListTemp: String;
	ItemValueC, titleValueS: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieBASE BEGIN======================|');
	Result := prFinished;  //It will change to prError if any major issue occurs and will exit;
	//Because the script doesn't retreive the data in the page order a token search for the first curPos position or block select is mandatory

	//Get ~posters~
	If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

	//Set the script and file paths
	ScriptPath := GetAppPath + 'Scripts\';
	LogMessage('Function ParsePage_IMDBMovieBASE - Local Var: ScriptPath|' + ScriptPath + '||');
	FilePath := ScriptPath + 'Tmp\';

	//Calling GetPvdConfigOptions Function first
	ConfigOptions := GetPvdConfigOptions;
	//(*
	//Log the values of each opXXX
	LogMessage('Function ParsePage_IMDBMovieBASE - opPoster:|' + ConfigOptions[0]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opTitle:|' + ConfigOptions[1]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opOrigTitle:|' + ConfigOptions[2]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opAKA:|' + ConfigOptions[3]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opYear:|' + ConfigOptions[4]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opGenre:|' + ConfigOptions[5]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opCategory:|' + ConfigOptions[6]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opDirector:|' + ConfigOptions[7]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opProducer:|' + ConfigOptions[8]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opWriter:|' + ConfigOptions[9]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opComposer:|' + ConfigOptions[10]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opActors:|' + ConfigOptions[11]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opCountry:|' + ConfigOptions[12]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opOrigLang:|' + ConfigOptions[13]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opStudio:|' + ConfigOptions[14]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opMPAA:|' + ConfigOptions[15]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opORating:|' + ConfigOptions[16]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opTags:|' + ConfigOptions[17]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opRDate:|' + ConfigOptions[18]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opBudget:|' + ConfigOptions[19]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opMoney:|' + ConfigOptions[20]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opTagline:|' + ConfigOptions[21]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opDescription:|' + ConfigOptions[22]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opLength:|' + ConfigOptions[23]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opAwards:|' + ConfigOptions[24]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opConnections:|' + ConfigOptions[25]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opFeatures:|' + ConfigOptions[26]);
	LogMessage('Function ParsePage_IMDBMovieBASE - opEpisodes:|' + ConfigOptions[27]);
	//*)

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each field that is not dynamic
		//These fields are not part of the Main page and I'm using them for the debugging purposes of the Main page. If you don't want it, just comment the snippet out.

		{
		If Not (FullCreditsPageDownloaded) And Not (ReferencePageDownloaded) Then Begin
			If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin
				AddMoviePerson('Directors for Series are not part of the Main page.', '', '', '', ctDirectors);
				AddCustomFieldValueByName('IMDb Directed by:', 'Directors for Series are not part of the Main page.');
			End;  //If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here
			AddMoviePerson('Producers are not part of the Main page.', '', '', '', ctProducers);
			AddMoviePerson('Composers are not part of the Main page.', '', '', '', ctComposers);
			AddCustomFieldValueByName('Thank', 'Thank is not part of the Main page');
		End;  //If Not (FullCreditsPageDownloaded) And Not (ReferencePageDownloaded) Then Begin should end here

		If Not (ReferencePageDownloaded) Then Begin
			AddCustomFieldValueByName('Distributors', 'Distributors are not part of the Main page.');
			AddCustomFieldValueByName('Release infos', 'Release infos are not part of the Main page.');
			AddCustomFieldValueByName('Reference', 'Reference is not part of the Main page.');
		End;  //If Not (ReferencePageDownloaded) Then Begin should end here

		If Not (AwardsPageDownloaded) Then Begin
			AddAward('Awards are not part of the Main page.', '', '', '', '', False);
		End;  //If Not (AwardsPageDownloaded) Then Begin should end here

		If Not (MovieConnectionsPageDownloaded) Then Begin;
			AddConnection('Movie Connections are not part of the Main page.', '', '', '', '');
				connValue := GetCustomFieldValueByName('Connections');
				LogMessage('Function ParsePage_IMDBMovieBASE - connValue:|' + connValue);
			If connValue = 'Movie Connections Summaries are not part of the Main page' Then Begin
				AddCustomFieldValueByName('Connections', '');
				End Else Begin
				AddCustomFieldValueByName('Connections', 'Movie Connections Summaries are not part of the Main page');
			End;  //If connValue = 'Movie Connections Summaries are not part of the Main page' Then Begin should end here
		End;  //If Not (MovieConnectionsPageDownloaded) Then Begin; should end here

		If Not (ParentalGuidePageDownloaded) Then Begin
			AddCustomFieldValueByName('IMDbmpaaSummary', 'MPAA Summary is not part of the Main page');
			AddCustomFieldValueByName('IMDbmpaaDetails', 'MPAA Details are not part of the Main page');
			AddCustomFieldValueByName('Certification', 'Certification is not part of the Main page');
		End;  //If Not (ParentalGuidePageDownloaded) Then Begin should end here

		//(*
		If Not (GET_FULL_CREDIT_FROM_REFERENCE) Or Not (GET_FULL_CREDIT) Or Not (GET_REFERENCE) Or Not (((ReferencePageDownloaded) And (FullCreditsPageDownloaded)))Then Begin
			AddCustomFieldValueByName('Cinema', 'Full Crew is not part of the Main page');
			AddCustomFieldValueByName('Cinema1', 'Full Credit Summary is not part of the Main page');
		End;  //If Not (GET_FULL_CREDIT_FROM_REFERENCE) Or Not (GET_FULL_CREDIT) Or Not (GET_REFERENCE) Or Not (((ReferencePageDownloaded) And (FullCreditsPageDownloaded)))Then Begin should end here
		//*)

		If Not (PlotSummaryPageDownloaded) Then Begin
			AddCustomFieldValueByName('Plot Summary', 'Plot Summary is not part of the Main page');
			AddCustomFieldValueByName('IMDB Synopsis', 'IMDB Synopsis is not part of the Main page');
			AddFieldValueXML('comment', 'Comment is not part of the Main page');
			AddCustomFieldValueByName('IMDB Plot Summaries', 'IMDB Plot Summaries are not part of the Main page');
		End;  //If Not (PlotSummaryPageDownloaded) Then Begin should end here

		If Not (ReleaseInfoPageDownloaded) Then Begin
			AddCustomFieldValueByName('IMDbPremiereDates', 'IMDbPremiereDates are not part of the Main page');
		End;  //If Not (ReleaseInfoPageDownloaded) Then Begin should end here

		If Not (ReleaseInfoPageDownloaded) And Not (ReferencePageDownloaded) Then Begin
			AddCustomFieldValueByName('IMDbCountryAKA', 'IMDbCountryAKA is not part of the Main page');
		End;  //If Not (ReleaseInfoPageDownloaded) And Not (ReferencePageDownloaded) Then Begin should end here

		If Not (KeywordsPageDownloaded) Then Begin
			AddCustomFieldValueByName('Download_URL', 'Keywords Url is not part of the Main page');
		End;  //If Not (KeywordsPageDownloaded) Then Begin should end here
		}

		//Get ~MID ID:~ and ~NUM ID:~
		AddCustomFieldValueByName('MID ID:', GetFieldValueXML('mid'));
		LogMessage('Function ParsePage_IMDBMovieBASE - Movie MID ID:|' + GetFieldValueXML('mid') + '||');
		If GetFieldValueXML('num') <> '0' Then AddCustomFieldValueByName('NUM ID:', GetFieldValueXML('num'));
		LogMessage('Function ParsePage_IMDBMovieBASE -   * Movie NUM ID:|' + GetFieldValueXML('num') + '||');

		//Get all "raw" title summary (in raw because we need the hidden links, we avoid "complete" token in strings which opens/closes)  //(* *)
		ItemList := TextBetWeenFirst(HTML, '<script type="application/ld+json">', '}</script>');  //WEB_SPECIFIC
		//LogMessage('Function ParsePage_IMDBMovieBASE - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList:|' + '<script type="application/ld+json">' + ItemList + '}</script>' + '||');

		If (Length(ItemList) > 0) Then Begin

			//Get ~IMDb Url~
			//MovieURL := 'https://www.imdb.com' + TextBetWeenFirst(ItemList, '", "url":"', '", "name":"');
			MovieURL := TextBetWeenFirst(ItemList, '","url":"', '","name":"');
			//MovieURL := StringReplace(MovieURL, 'https://', 'http://', True, False, True);
			//If (Length(MovieURL) > 0) And (MovieURL[Length(MovieURL)] = '/') Then Delete(MovieURL, Length(MovieURL), 1);
			AddFieldValueXML('url', MovieURL);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result url 1:|' + MovieURL + '||');
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result MovieURL:|' + MovieURL);
			//IMDB_FIELD = 'IMDB';
			If PosFrom('imdb', MovieURL, 1) > 0 Then AddCustomFieldValueByName(IMDB_FIELD, '-1');

			//(*
			//Get ~MicroIMDbInfo~
			StartPos := Pos('og:title" content="', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - StartPos for og:title:|' + IntToStr(StartPos));
			If StartPos > 0 Then Begin
				StartPos := StartPos + Length('og:title" content="');
				LogMessage('Function ParsePage_IMDBMovieBASE - Adjusted StartPos for og:title:|' + IntToStr(StartPos));
				endPos := PosFrom('">', HTML, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos for og:title:|' + IntToStr(endPos));
				ItemValue := Copy(HTML, StartPos, endPos - StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted og:title:|' + ItemValue);
			End;  //If StartPos > 0 Then Begin should end here

			//Extract og:description
			StartPos := Pos('og:description" content="', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - StartPos for og:description:|' + IntToStr(StartPos));
			If StartPos > 0 Then Begin
				StartPos := StartPos + Length('og:description" content="');
				LogMessage('Function ParsePage_IMDBMovieBASE - Adjusted StartPos for og:description:|' + IntToStr(StartPos));
				endPos := PosFrom('">', HTML, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos for og:description:|' + IntToStr(endPos));
				If (Pos('IMDb', Copy(HTML, StartPos, endPos - StartPos)) > 0) Then
					ItemValue := ItemValue
				Else
					ItemValue := ItemValue + '|' + Copy(HTML, StartPos, endPos - StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted og:description:|' + Copy(HTML, StartPos, endPos - StartPos));
			End;  //If StartPos > 0 Then Begin should end here

			//Extract twitter:image:alt
			StartPos := Pos('twitter:image:alt" content="', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - StartPos for twitter:image:alt:|' + IntToStr(StartPos));
			If StartPos > 0 Then Begin
				StartPos := StartPos + Length('twitter:image:alt" content="');
				LogMessage('Function ParsePage_IMDBMovieBASE - Adjusted StartPos for twitter:image:alt:|' + IntToStr(StartPos));
				//Move StartPos to right before "Directed"
				endPos := PosFrom('Directed', HTML, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos for twitter:image:alt "Directed":|' + IntToStr(endPos));

				If (endPos > 0) And (Pos('Directed by {directorsOrCreatorsString}', HTML) = 0) Then Begin
					StartPos := endPos;  //Move to the space before "Directed"
					LogMessage('Function ParsePage_IMDBMovieBASE - Adjusted StartPos to right before "Directed":|' + IntToStr(StartPos));
					LogMessage('Function ParsePage_IMDBMovieBASE - 50 characters around adjusted StartPos:|' + Copy(HTML, StartPos - 25, 50));
				End;  //If endPos > 0 Then Begin should end here
				endPos := PosFrom('">', HTML, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos for twitter:image:alt:|' + IntToStr(endPos));
				AltDescription := Copy(HTML, StartPos, endPos - StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted twitter:image:alt:|' + AltDescription);
				If Pos('{directorsOrCreatorsString}', AltDescription) > 0 Then AltDescription := '';
				If Pos(AltDescription, ItemValue) > 0 Then AltDescription := '';
				If AltDescription = '' Then
					ItemValue := ItemValue
				Else
					ItemValue := ItemValue + '|' + AltDescription;
				LogMessage('Function ParsePage_IMDBMovieBASE - Combined ItemValue:|' + ItemValue);
			End;  //If StartPos > 0 Then Begin should end here
			ItemValue := StringReplace(ItemValue, '| |', '|', True, False, True);
			ItemValue := StringReplace(ItemValue, '|', ' | ', True, False, True);
			ItemValue := StringReplace(ItemValue, '  |', ' |', True, False, True);
			ItemValue := StringReplace(ItemValue, '|  ', '| ', True, False, True);
			ItemValue := StringReplace(ItemValue, '|   ', '| ', True, False, True);
			ItemValue := StringReplace(ItemValue, '   |', ' |', True, False, True);

			//Add the combined information to the custom field
			AddCustomFieldValueByName('MicroIMDbInfo', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieBASE - Final MicroIMDbInfo:|' + ItemValue);
			//*)

			If Not (ReferencePageDownloaded) Then Begin
				//Get ~title~
				titleValue := TextBetWeenFirst(ItemList, '","name":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				If titleValue = '0' Then titleValue := '';
				//If titleValue = '' Then titleValue := TextBetWeenFirst(ItemList, '<h1 class="long">', '<');  //Strings which opens/closes the data. WEB_SPECIFIC
				//If GET_ORIGINAL_TITLE Then - If set to False, both with GET_LOCAL_TITLE, nothing will be added, so it doesn't make sense here. However, in REFERENCE, as the third option, we can set the title available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations.
				//AddFieldValueXML('title', titleValue);  //Needed not to be added here for getting proper Movie Connections inside PVD
				AddCustomFieldValueByName('Title', titleValue);
				AddCustomFieldValueByName('Localized title', titleValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result title:|' + titleValue + '||');

				//Get ~origtitle~
				ItemValue := TextBetWeenFirst(ItemList, '","name":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				If (Length(ItemValue)= 0) Then ItemValue := titleValue;  //Provider hides the original title if same that title. WEB_SPECIFIC
				AddFieldValueXML('origtitle', ItemValue);
				AddCustomFieldValueByName('Origtitle', ItemValue);
				AddCustomFieldValueByName('Original Title', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result origtitle + (CF~OrigTitle~):|' + ItemValue + '||');
				OrigTitleValue := ItemValue;

				//Get ~alternatetitle~
				ItemValue := TextBetWeenFirst(ItemList, '","alternateName":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				AddCustomFieldValueByName('Localized title', ItemValue);
				//If GET_LOCAL_TITLE Then - If set to False, both with GET_LOCAL_TITLE, nothing will be added, so it doesn't make sense here. However, in REFERENCE, as the third option, we can set the title available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations.
				//AddFieldValueXML('title', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result alternatetitle:|' + ItemValue + '||');
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Imdb_Title', titleValue + ' (original title) / ' + ItemValue + ' (local title)');
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result alternatetitle (CF~Imdb_Title~):|' + titleValue + ' (original title) / ' + ItemValue + ' (local title)' + '||');
					LocalTitleValue := ItemValue;
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result LocalTitleValue:|' + LocalTitleValue + '||');
				End Else Begin
					AddCustomFieldValueByName('Imdb_Title', titleValue + ' (original title) / ' + titleValue + ' (no local title)');  //For Imdb_Title - caption in my skin is "Imdb Title:" and it is used under the Title1 there
				End;  //If ItemValue <> '' Then Begin should end here
			End;  //If Not (ReferencePageDownloaded) Then Begin should end here

			LogMessage('Function ParsePage_IMDBMovieBASE MediaType:|' + MediaType + '||');

			//(*
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[6] = '0')) Then Begin
				//Get ~category~ + (CF~IMDB_Movietype~)) + (CF~Tv 0~)
				ItemValue := TextBetWeenFirst(ItemList, '","@type":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv 0 (CF~IMDB_Movietype~) after TextBetWeenFirst:|' + ItemValue + '||');
				MediaTypeBase := ItemValue;
				MediaTypeBase := StringReplace(MediaTypeBase, 'TVEpisode', 'TV Episode', True, False, True);
				MediaTypeBase := StringReplace(MediaTypeBase, 'TVSeries', 'TV Series', True, False, True);
				AddFieldValueXML('category', MediaTypeBase);
				AddCustomFieldValueByName('IMDB_Movietype', MediaTypeBase);
				AddCustomFieldValueByName('Tv 0', MediaTypeBase);
				LogMessage('Function ParsePage_IMDBMovieBASE - Added as ~category~, (CF~IMDB_Movietype~), And (CF~Tv 0~):|' + MediaTypeBase + '||');
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[6] = '0')) Then Begin should end here
			//*)

			If Not (ReferencePageDownloaded) Then Begin
				//Get ~tagline~ And (CF~IMDB_Tagline~)
				curPos := Pos('>Taglines<', HTML);  //WEB_SPECIFIC
				If 0 < curPos Then Begin
					endPos := curPos;
					ItemValue := HTMLValues2(HTML, '>Taglines<', '<span class', '<span>', '</span>', '', endPos);  //WEB_SPECIFIC
					AddFieldValueXML('tagline', ItemValue);
					AddCustomFieldValueByName('IMDB_Tagline', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~tagline~ And (CF~IMDB_Tagline~):|' + ItemValue + '||');
				End;  //If 0 < curPos Then Begin should end here
			End;  //If Not (ReferencePageDownloaded) Then Begin should end here

			If Not ParentalGuidePageDownloaded Then Begin
				//ParentalGuidePageDownloaded = False
				//Get everything from the main page (mpaa + IMDB_MPAA)

				If ((Pos('Series', MediaType) > 0) Or (Pos('Episode', MediaTypeBase) > 0) Or (Pos('Episode', GetFieldValueXML('category')) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin

					//Apply different HTML layout (Series/Episode)
					curPos := Pos('pg#certificates"', HTML);
					If curPos > 0 Then Begin
						endPos := curPos;
						ItemValue := TextBetWeen(HTML, '>', '</a>', False, endPos);  //Different HTML layout.
						ItemValue := StringReplace(ItemValue, '- ', '', False, True, True);
						//AddFieldValueXML('mpaa', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBase - Final ~mpaa~ Result (Different Layout):|' + ItemValue + '||');
					End;  //If 0 < curPos Then Begin should end here
				End Else Begin
					//Apply original HTML layout (Movie)
					curPos := Pos('pg#certificates">Motion Picture Rating (MPA)</a>', HTML);
					If curPos > 0 Then Begin
						endPos := curPos;
						ItemValue := HTMLValues2(HTML, 'pg#certificates">Motion Picture Rating (MPA)</a>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '', endPos);  //Original HTML layout.
						ItemValue := StringReplace(ItemValue, '- ', '', False, True, True);
						//AddFieldValueXML('mpaa', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBase - Final ~mpaa~ Result (Original Layout):|' + ItemValue + '||');
					End;  //If curPos > 0 Then Begin should end here
				End;  //If ((Pos('Series', MediaType) > 0) Or (Pos('Episode', MediaTypeBase) > 0) Or (Pos('Episode', GetFieldValueXML('category')) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here

				//Get ~IMDB_MPAA~ from main page
				ItemValue := TextBetWeenFirst(ItemList, ',"contentRating":"', '","');  //Strings which open/close the data. WEB_SPECIFIC.
				//AddCustomFieldValueByName('IMDB_MPAA', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ContentRating (CF~IMDB_MPAA~):|' + ItemValue + '||');
			End Else Begin
				//ParentalGuidePageDownloaded = True
				//All fields are available, but mpaa source differs:
				//Movies: mpaa comes from ParentalGuide page function
				//Series/Episodes: mpaa must still be parsed from main page

				If ((Pos('Series', MediaType) > 0) Or (Pos('Episode', MediaTypeBase) > 0) Or (Pos('Episode', GetFieldValueXML('category')) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin
					//Apply different HTML layout (Series/Episode)
					curPos := Pos('pg#certificates"', HTML);
					If curPos > 0 Then Begin
						endPos := curPos;
						ItemValue := TextBetWeen(HTML, '>', '</a>', False, endPos);  //Different HTML layout.
						ItemValue := StringReplace(ItemValue, '- ', '', False, True, True);
						//AddFieldValueXML('mpaa', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBase - Final ~mpaa~ Result (Different Layout):|' + ItemValue + '||');
					End;  //If curPos > 0 Then Begin should end here
				End Else Begin
					//Movie case: mpaa is handled via ParentalGuide page function, not here
					LogMessage('Function ParsePage_IMDBMovieBase - Skipping MPAA parse here for Movie; handled via ParentalGuide page.');
				End;  //If ((Pos('Series', MediaType) > 0) Or (Pos('Episode', MediaTypeBase) > 0) Or (Pos('Episode', GetFieldValueXML('category')) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here

				//IMDB_MPAA is also handled via ParentalGuide page function when downloaded
			End;  //If Not ParentalGuidePageDownloaded Then Begin should end here

			{
			//Now not needed since Procedure EnsurePosterDownloaded is introduced in order to be able to download poster from any page.
			//Get ~posters~
			If (DOWNLOAD_POSTERS) Then Begin
				ItemValue := TextBetWeenFirst(ItemList, BASE_URL_IMAGE_PRE_TRUE, '.');  //Get poster code. Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result BASE_URL_IMAGE_PRE_TRUE:|' + ItemValue + '||');

				If (Length(ItemValue) > 0) Then Begin //The Poster will be saved in PVD
					ItemValue := BASE_URL_IMAGE_PRE_TRUE + ItemValue;  //Base poster URL without '.jpg'. WEB_SPECIFIC
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result BASE_DOWNLOAD_FILE_IMAGE_NAME + -Poster.jpg:|' + ItemValue + '||');
					ImageFile := GetAppPath + 'Scripts\' + BASE_DOWNLOAD_FILE_IMAGE_NAME + '-Poster.jpg';

					//Avoid HTTPS redirection: Download https image to file OutPutFile=
					If (1 = DownloadImage(ItemValue + '._V1_UY' + IntToStr(MAX_IMAGE_HEIGHT) + '_.jpg', ImageFile)) Then Begin  //Download in the selected user max size. WEB_SPECIFIC
						AddImageURL(itPoster, ImageFile);  //Getting the poster from a file but we log the true URL in the next line for debugging purposes
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result poster:|' + #13#10 + ItemValue + '._V1_UY' + IntToStr(MAX_IMAGE_HEIGHT) + '_.jpg' + '||');
					End Else If (1 = DownloadImage(ItemValue + '.jpg', ImageFile)) Then Begin  //Download in the web base size. WEB_SPECIFIC
						AddImageURL(itPoster, ImageFile);  //Getting the poster from a file but we log the true URL in the next line for debugging purposes
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result itPoster:|' + #13#10 + ItemValue + '.jpg' + '||');
					End;  //If (1 = DownloadImage(ItemValue + '._V1_UY' + IntToStr(MAX_IMAGE_HEIGHT) + '_.jpg', ImageFile)) Then Begin should end here
				End;  //If (Length(ItemValue) > 0) Then Begin should end here
			End;  //If (DOWNLOAD_POSTERS) Then Begin should end here
			}

			If Not (ReferencePageDownloaded) Then Begin
				//Get ~description~  from "Storyline" section - longer
				curPos := Pos('>Storyline<', HTML);
				LogMessage('Function ParsePage_IMDBMovieBASE - >Storyline< curPos for ~description~:|' + IntToStr(curPos) + '||');  //WEB_SPECIFIC
				If 0 < curPos Then Begin
					LogMessage('Function ParsePage_IMDBMovieBASE - Is div class="ipc-html-content-inn ------ before >Add synopsis<:|' + IntToStr(PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos)) + '||');
					If ( PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos) > 0) And ((PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos) < PosFrom('>Add synopsis<', HTML, curPos)) Or (PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos) < PosFrom('>Plot summary<', HTML, curPos)) Or (PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos) < PosFrom('>Plot synopsis<', HTML, curPos))) Then curPos := PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Is curPos before >Add synopsis<:|' + IntToStr(curPos) + '||');
					endPos := PosFrom('</div>', HTML, curPos) + Length('</div>');
					If PosFrom('>Add synopsis<', HTML, curPos) > 0 Then endPos := PosFrom('>Add synopsis<', HTML, curPos) + Length('>Add synopsis<');
					ItemListTemp := Copy(HTML, curPos, endPos - curPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemListTemp for ~description~:|' + #13#10 + ItemListTemp + '||');
					If endPos > 0 Then ItemValue := TextBetWeenFirst(ItemListTemp, '<div class="ipc-html-content-inner-div" role="presentation">', '</div>');  //Strings which opens/closes the data. WEB_SPECIFIC
					AddFieldValueXML('description', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~description~:|' + #13#10 + ItemValue + '||');
				End;  //If 0 < curPos Then Begin should end here

				//Get (CF~Description~) - shorter
				ItemValue := TextBetWeenFirst(ItemList, ',"description":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				ItemValue := StringReplace(ItemValue, ' -- ', ' — ', True, False, True);
				If ItemValue <> '' Then AddCustomFieldValueByName('Description', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result  (CF~Description~):|' + #13#10 + ItemValue + '||');

				//Get ~genre~ (field with multiple values in a comma separated list)
				ItemValue := TextBetWeenFirst(ItemList,'"genre":["','"],"');  //Strings which opens/closes the data. WEB_SPECIFIC
				ItemValue := StringReplace(ItemValue,'","',',  ',True,False,True);
				AddFieldValueXML('genre',ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get results genre:|' + ItemValue + '||');
			End;  //If Not (ReferencePageDownloaded) Then Begin should end here


			//Get (CF~IMDb_Sub-Genres~)
			curPos := Pos('":"TitleKeywordConnection"}', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues(HTML, '"genres":{"genres"', ',"interests":', '"text":"', '","', ', ', endPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for (CF~IMDb_Sub-Genres~):|' + ItemValue + '||');
				AddCustomFieldValueByName('IMDb_Sub-Genres', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Added as (CF~IMDb_Sub-Genres~):|' + ItemValue + '||');
			End;  //If 0 < curPos Then Begin should end here

			If Not (ReferencePageDownloaded) Then Begin
				//~rdate~ in country's provider local IP geolocation. See: http://sobizarre-en.blogspot.fr/2014/12/how-to-easily-defeat-imdb-geolocation.html

				//Get ~rdate~ + (CF~IMDB Release Date~)
				ItemValue := TextBetWeenFirst(ItemList, ',"datePublished":"', '","');  //Strings which opens/closes the data. WEB_SPECIFIC
				AddFieldValueXML('rdate', ItemValue);  //It has to be added here, because being original field it follows by design the regional settings of your computer and cannot be customized like IMDB Release Date(s). It can be added as ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0]; only if the formats in the HTML and your computer are identical.
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~rdate~:|' + ItemValue + '||');
				ItemValue := StringReplace(ItemValue, '-01', '-1', True, False, True);
				ItemValue := StringReplace(ItemValue, '-02', '-2', True, False, True);
				ItemValue := StringReplace(ItemValue, '-03', '-3', True, False, True);
				ItemValue := StringReplace(ItemValue, '-04', '-4', True, False, True);
				ItemValue := StringReplace(ItemValue, '-05', '-5', True, False, True);
				ItemValue := StringReplace(ItemValue, '-06', '-6', True, False, True);
				ItemValue := StringReplace(ItemValue, '-07', '-7', True, False, True);
				ItemValue := StringReplace(ItemValue, '-08', '-8', True, False, True);
				ItemValue := StringReplace(ItemValue, '-09', '-9', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReleaseDatePublished:|' + ItemValue + '||');
				If ItemValue <> '' Then Begin
					ExplodeString(ItemValue, ItemArray, '-');
					ItemValue := ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0];
					//AddCustomFieldValueByName('IMDB Release Date', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result DatePublished (CF~IMDB Release Date~):|' + ItemValue + '||');
				End;  //If ItemValue <> '' Then Begin should end here
			End;  //If Not (ReferencePageDownloaded) Then Begin should and here

			If Not (ReferencePageDownloaded) Then Begin
				//Get ~IMDB_Votes~
				ItemValue := TextBetWeenFirst(ItemList,'","ratingCount":',',"');  //Strings which opens/closes the data. WEB_SPECIFIC
				AddCustomFieldValueByName('IMDB_Votes', ItemValue);
				AddCustomFieldValueByName('IMDB Votes', ItemValue);
				AddCustomFieldValueByName('IMDB Votes:', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ratingCount (CF~IMDB_Votes~):|' + ItemValue + '||');

				//Get ~imdbrating~~IMDB Rating~~IMDBRating~
				ItemValue := TextBetWeenFirst(ItemList,'"worstRating":1,"ratingValue":','},"');  //Strings which opens/closes the data. WEB_SPECIFIC
				//ItemValue := FloatToStr((StrToFloat(ItemValue) * 1));
				AddFieldValueXML('imdbrating',ItemValue);
				AddCustomFieldValueByName('IMDB Rating',ItemValue);
				AddCustomFieldValueByName('IMDBRating',ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ratingValue ~imdbrating~ (CF~IMDB Rating~~IMDBRating~):|' + ItemValue + '||');
			End;  //If Not (ReferencePageDownloaded) Then Begin should end here
		End;  //If (Length(ItemList) > 0) Then Begin should end here

		//FROM HERE TO TOP 250 at LINE around 2660
		If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[4] = '0')) Then Begin
			//Go to "Tv Mode"
			//Get ~year~ ~yearsValue~
			StartPos := Pos('<h1 textlength="', HTML);
			If StartPos > 0 Then Begin
				yearsValue := TextBetWeen(HTML, 'releaseinfo/?ref_=tt_ov_rdat">', '</a></li>', False, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result year (yearsValue):|' + yearsValue + '||');
				If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin
					AddCustomFieldValueByName('IMDB_Series-year1',yearsValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result year01-yearsValue for (CF~IMDB_Series-year1~):'+yearsValue+'||');

					//(*
					//For Series
					If Pos('Series', MediaTypeBase) > 0 Then Begin
						yearsValue1 := yearsValue1 + MediaTypeBase;
					End Else Begin
						If Pos('Series', MediaType) > 0 Then yearsValue1 := yearsValue1 + MediaType;
					End;  //If Pos('Series', MediaTypeBase) > 0 Then Begin should end here
					If yearsValue1 <> '' Then
						seriesValue := yearsValue1+' ('+yearsValue+')'
					Else
						seriesValue := '';
					AddCustomFieldValueByName('IMDB_Series-year',seriesValue);
					If seriesValue <> '' Then Begin
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result seriesValue for (CF~IMDB_Series-year~):'+#13#10+seriesValue+'||'+#13#10);
						AddCustomFieldValueByName('IMDBSeasonsURL','<link url="'+MovieURL+'episodes/">IMDB Episodes Page</link>  ');

						If Pos('>Episode guide<', HTML) > 0 Then Begin
							curPos := Pos('Episode guide<span', HTML);
							//curPos := PosFrom('>', HTML, curPos);
							EpisodesNumber := TextBetWeen(HTML, 'episode-count">', '</span><svg', False, curPos) + ' episodes';
							AddCustomFieldValueByName('Seasons-Episodes', EpisodesNumber);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result EpisodesNumber:|' + EpisodesNumber + '||');
						End;  //If Pos('>Episode guide<', HTML) > 0 Then Begin should end here

						//Check if no dropdown exists
						If Pos('<label for="browse-episodes-year" class="ipc-simple-select__label">', HTML) = 0 Then Begin
							//Check if /episodes/?year= exists
							If Pos('/episodes/?year=', HTML) > 0 Then Begin
								curPos := Pos('/episodes/?year=', HTML);

								//Extract the year
								SeasonYear := TextBetween(HTML, '<span class="ipc-btn__text">', '</span>', False, curPos);

								//Add the extracted year link to AllYearLinks
								If SeasonYear <> '' Then Begin
									AllYearLinks := '<link url="'+MovieURL+'episodes/?year=' + SeasonYear + '">' + SeasonYear + '</link>|';
								End;  //If SeasonYear <> '' Then Begin should end here

								LogMessage('Function ParsePage_IMDBMovieBASE - Single Year Detected:|' + SeasonYear + '||');
							End;  //If Pos('/episodes/?year=', HTML) > 0 Then Begin should end here
						End Else Begin
							//Dropdown exists
							curPos := Pos('<label for="browse-episodes-year" class="ipc-simple-select__label">', HTML);
							curPos := PosFrom('<option value="SEE_ALL">See all', HTML, curPos);

							//Extract years list
							SeasonsYearsList := HTMLValues2(HTML, '<option value="SEE_ALL">See all</option>', '</div></section>', '<option value=', '</option>', ',', curPos);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result digit only SeasonsYearsList:|' + SeasonsYearsList + '||');

							//Initialize variable for all year links
							AllYearLinks := '';

							//Process each year in order of extraction
							While Pos(',', SeasonsYearsList) > 0 Do Begin
								curPos := Pos(',', SeasonsYearsList);
								SeasonYear := Copy(SeasonsYearsList, 1, curPos - 1);  //Extract year before the comma
								SeasonsYearsList := Copy(SeasonsYearsList, curPos + 1, Length(SeasonsYearsList));  //Trim processed year

								//Append the current year link to AllYearLinks
								AllYearLinks := AllYearLinks + '<link url="'+MovieURL+'episodes/?year=' + SeasonYear + '">' + SeasonYear + '</link>|';
							End;  //While Pos(',', SeasonsYearsList) > 0 Do Begin should end here

							//Handle the last year (remaining one)
							If SeasonsYearsList <> '' Then Begin
								SeasonYear := SeasonsYearsList;  //Remaining year
								AllYearLinks := AllYearLinks + '<link url="'+MovieURL+'episodes/?year=' + SeasonYear + '">' + SeasonYear + '</link>|';
							End;  //If SeasonsYearsList <> '' Then Begin should end here

							LogMessage('Function ParsePage_IMDBMovieBASE - AllYearLinks (Dropdown):|' + AllYearLinks + '||');
						End;  //If Pos('<label for="browse-episodes-year" class="ipc-simple-select__label">', HTML) = 0 Then Begin should end here

						If Pos('<div data-testid="episodes-browse-episodes"', HTML) > 0 Then Begin
							curPos := Pos('<div data-testid="episodes-browse-episodes"', HTML);
							If Pos('<label for="browse-episodes-season" class="ipc-simple-select__label">', HTML) > 0 Then Begin
								SeasonsNumber := TextBetWeen(HTML, '<label for="browse-episodes-season" class="ipc-simple-select__label">', '</label>', False, curPos);
							End Else Begin
								SeasonsNumber := '1';
							End;  //If Pos('<label for="browse-episodes-season" class="ipc-simple-select__label">', HTML) > 0 Then Begin should end here
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result full text SeasonsNumber:|' + SeasonsNumber + '||');
							SeasonsNumber := StringReplace(SeasonsNumber, ' seasons', '', True, True, False);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result digit only SeasonsNumber:|' + SeasonsNumber + '||');

							//Initialize a variable to hold all season links
							AllSeasonLinks := '';

							For i := 1 To StrToInt(SeasonsNumber) Do Begin
								SeasonNumberDigit := IntToStr(i);
								//Concatenate the current season link to AllSeasonLinks with delimiter '|'
								AllSeasonLinks := '|   <link url="'+MovieURL+'episodes/?season=' + SeasonNumberDigit + '">' + SeasonNumberDigit + '</link>   ' + AllSeasonLinks;
							End;  //For i := 1 To StrToInt(SeasonsNumber) Do Begin should end here
							//Add the concatenated season links to the custom field
							If SeasonNumberDigit = '1' Then Begin
								AddCustomFieldValueByName('IMDb Seasons - Episodes', EpisodesNumber + ' in ' + SeasonsNumber + ' season: '+ AllSeasonLinks);
								AddCustomFieldValueByName('Seasons - Episodes', EpisodesNumber + #13#10 + AllSeasonLinks + '|' #13#10 + '|' + AllYearLinks + #13#10);
							End Else Begin
								AddCustomFieldValueByName('IMDb Seasons - Episodes', EpisodesNumber + ' in ' + SeasonsNumber + ' seasons: '+ AllSeasonLinks);
								LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~IMDb Seasons - Episodes~):|' + SeasonsNumber + '||');
								AddCustomFieldValueByName('Seasons - Episodes', EpisodesNumber + #13#10 + AllSeasonLinks + '|' #13#10 + '|' + AllYearLinks + #13#10);
								LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~Seasons - Episodes~):|' + SeasonsNumber + '||');
							End;  //If SeasonNumberDigit = '1' Then Begin should end here
						End;  //If Pos('<div data-testid="episodes-browse-episodes"', HTML) > 0 Then Begin should end here
					End;  //If seriesValue <> '' Then Begin should end here
					//*)
				End;  //If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here
				debug_pos1 := Pos('–', yearsValue);
				If debug_pos1 > 0 Then yearsValue := Copy(yearsValue, 0, debug_pos1 - 1);
				AddFieldValueXML('year', yearsValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - yearsValue:|' + yearsValue + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result added year yearsValue:|' + yearsValue + '||');
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - year-metadata not found');
			End;  //If StartPos > 0 Then Begin should end here - StartPos := Pos('<h1 textlength="', HTML);
		End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[4] = '0')) Then Begin should end here

		//Go to "Tv Mode"
		StartPos := Pos('<h1 textlength="', HTML);
		If StartPos > 0 Then Begin
			ItemValue := HTMLValue(HTML, StartPos, 0, '<li role="presentation" class="ipc-inline-list__item">', '</li>');
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode1a:|' + ItemValue + '||');
			debug_pos1 := Pos('<a href="', ItemValue);
			If debug_pos1 > 0 Then ItemValue := Copy(ItemValue, 0, debug_pos1 - 1);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode1b:|' + ItemValue + '||');
			debug_pos1 := Pos('<a class="', ItemValue);
			If debug_pos1 > 0 Then ItemValue := Copy(ItemValue, 0, debug_pos1 - 1);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode1:|' + ItemValue + '||');
			If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then AddCustomFieldValueByName('Tv', ItemValue);
			AddCustomFieldValueByName('IMDB_year', ItemValue);
			AddCustomFieldValueByName('IMDB Year', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode (CF~Tv~):|' + ItemValue);
			yearValue := HTMLValue(HTML, StartPos, 0, '</a>', '</span></li><li role="presentation" class="ipc-inline-list__item"><a href="/title/');
			AddCustomFieldValueByName('IMDB_year', yearValue);
			AddCustomFieldValueByName('IMDB Year', yearValue);
			If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then AddCustomFieldValueByName('IMDB_Series-year', yearValue);
			LogMessage('ParsePage_IMDBMovieBASE - Get result Tv Mode (CF~IMDB_year~):|' + yearValue);

			ItemValue1 := HTMLValues(HTML, '<h1 textlength="', '</ul>', '"ipc-inline-list__item', '</', '  •  ', StartPos);
			//LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode2a:|' + #13#10 + ItemValue1 + '||' + #13#10);
			debug_pos1 := Pos('<a class="ipc-metadata', ItemValue1);
			If debug_pos1 >0 Then ItemValue1 := Copy(ItemValue1, 0, debug_pos1-1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := RemoveTagsEx_1(ItemValue1);
			ItemValue1 := StringReplace(ItemValue1, '">', '', True, False, True);
			AddCustomFieldValueByName('Tv2', ItemValue1);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Tv Mode2 (CF~Tv2~):|' + #13#10 + ItemValue1 + '||' + #13#10);
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieBASE - Tv/Tv 2 - metadata not found');
		End;  //If StartPos > 0 Then Begin should end here - StartPos := Pos('<h1 textlength="', HTML);

		//(*
		//Get ~TOP_250~

		//This is needed when Top 250 was present and TOP_250_Last wasn't, and it was possible so when TOP_250_Last was introduced after the film was in the list and imported in PVD being in the list, but TOP_250_Last was updated at the time title wasn't anymore in the list, so TOP_250_Last actually preserved its previous state, which was initially "empty"....

		If (GetCustomFieldValueByName('TOP_250TV') = '') Or (GetCustomFieldValueByName('TOP_250TV') = '0') Then Begin
			LastKnownTop250TV := GetCustomFieldValueByName('TOP_250TV_Last');
			AddCustomFieldValueByName('TOP_250TV_Last', LastKnownTop250TV);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250TV is empty, so added previous TOP_250TV_Last to (CF~TOP_250TV_Last~) before updating field online:|' + LastKnownTop250TV + '||');
		End Else Begin
			LastKnownTop250TV := GetCustomFieldValueByName('TOP_250TV');
			AddCustomFieldValueByName('TOP_250TV_Last', LastKnownTop250TV);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250TV is NOT empty, so added previous TOP_250TV to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250TV + '||');
		End;  //If (GetCustomFieldValueByName('TOP_250TV') = '') Or (GetCustomFieldValueByName('TOP_250TV') = '0') Then Begin should end here

		If (GetCustomFieldValueByName('TOP_250') = '') Or (GetCustomFieldValueByName('TOP_250') = '0') Then Begin
			LastKnownTop250 := GetCustomFieldValueByName('TOP_250_Last');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250 is empty, so added previous TOP_250_Last to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End Else Begin
			LastKnownTop250 := GetCustomFieldValueByName('TOP_250');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250 is NOT empty, so added previous TOP_250 to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End;  //If (GetCustomFieldValueByName('TOP_250') = '') Or (GetCustomFieldValueByName('TOP_250') = '0') Then Begin should end here


		If (LastKnownTop250 = '') Or (LastKnownTop250 = '0') Then Begin
			LastKnownTop250 := GetCustomFieldValueByName('Top 250:');
			LogMessage('Function ParsePage_IMDBMovieBASE - Top 250: adding finally to (CF~TOP_250_Last~) before updating field online when all others were empty:|' + LastKnownTop250 + '||');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - Last known value of Top 250: added to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End;  //If (LastKnownTop250 = '') Or (LastKnownTop250 = '0') Then Begin should end here

		PreviousTop250 := '';
		AddCustomFieldValueByName('TOP_250', PreviousTop250);
		LogMessage('Function ParsePage_IMDBMovieBASE - clearing TOP_250 before checking online:|' + PreviousTop250 + '||');
		AddCustomFieldValueByName('Top 250:', PreviousTop250);
		LogMessage('Function ParsePage_IMDBMovieBASE - clearing TOP_250 before checking online:|' + PreviousTop250 + '||');

		//Now checking online
		curPos := Pos('data-testid="award_top-rated" href="/chart/top', HTML);
		LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')

		//Outter tags
		If curPos <> 0 Then Begin
			curPos := PosFrom('>Top rated ', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result >Top rated for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')
			curPos := PosFrom('#', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result # for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')

			If curPos > 0 Then Begin
				ItemValue := TextBetWeen(HTML, '#', '</a>', False, curPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for Top 250-s before entering tree:|' + ItemValue + '||')


				If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
					//Inner tags + Series
					//Inner tags + Series + ItemValue <> ''
					If ItemValue <> '' Then Begin
						AddCustomFieldValueByName('TOP_250TV', ItemValue);
						AddCustomFieldValueByName('TOP_250TV_Last', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~TOP_250TV~) And (CF~TOP_250TV_Last~):|' + ItemValue + '||');
					End Else Begin
						//Inner tags + Series  + ItemValue = ''
						AddCustomFieldValueByName('TOP_250TV', '0');
						LogMessage('Function ParsePage_IMDBMovieBASE - TV tag present but no rank; set TOP_250TV="", preserved TOP_250TV_Last as.' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250TV_Last'), -1)));
					End;  //If ItemValue <> '' Then Begin - Inner tags + Series + ItemValue ends here
				End Else Begin
					//Inner tags + Movies + ItemValue
					//Inner tags + Movies+ItemValue <> ''
					If ItemValue <> '' Then Begin
						AddCustomFieldValueByName('TOP_250', ItemValue);
						AddCustomFieldValueByName('Top 250:', ItemValue);
						AddCustomFieldValueByName('TOP_250_Last', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~TOP_250~), (CF~Top 250:~), And (CF~TOP_250_Last~):|' + ItemValue + '||');
					End Else Begin
						//Inner tags + Movies + ItemValue = ''
						AddCustomFieldValueByName('TOP_250', '0');
						AddCustomFieldValueByName('Top 250:', '0');
						LogMessage('Function ParsePage_IMDBMovieBASE - Movie tag present but no rank; set TOP_250/Top 250:="", preserved TOP_250_Last is.' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250_Last'), -1)));
					End;  //If ItemValue <> '' Then Begin - Inner tags + Movies + ItemValue ends here
				End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begins Inner tags+ Movies ends here
			End Else Begin //No inner tags
				If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
					//Series + no inner tags
					AddCustomFieldValueByName('TOP_250TV', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250TV;  set it o ""; but maybe the title is still in top 250. Check title page on .' + IntToStr(StrToInt(GetCustomFieldValueByName('TOP_250TV_Last'))));
				End Else Begin
					//Movies + no inner tags
					AddCustomFieldValueByName('TOP_250', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for TOP_250, set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
					AddCustomFieldValueByName('Top 250:', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250:, set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250 movies; so maybe the title is still in top 250. Check title page on IMDb While, preserving TOP_250_Last as: ' +LastKnownTop250);
				End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin - Movies + no inner tags ends here
			End;  //If curPos > 0 Then Begin - No inner tags ends here
		End Else Begin  //No outter tags
			If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
				//Series + no outter tags
				AddCustomFieldValueByName('TOP_250TV', '0');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250TV; set it to ""; but maybe the title is still in top 250. Preserved TOP_250TV_Last as:|' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250TV_Last'), -1)));
			End Else Begin
				//Movies + no outter tags
				AddCustomFieldValueByName('TOP_250', '0');
				AddCustomFieldValueByName('Top 250:', '0');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for TOP_250; set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250:; set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250 movies; preserving TOP_250_Last as:|' + LastKnownTop250);
			End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin Movies - No outter tags ends here
		End;  //If curPos <> 0 Then Begin - No outter tags ends here
		//*)

		//Get ~Metascore~
		endPos := Pos('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML);
		If endPos > 0 Then Begin
			curPos := PrevPos('">', HTML, endPos) + Length('">');
			endPos := PosFrom('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML, curPos) + 2;
			//ItemValue := RemoveTags(Copy(HTML, curPos, endPos - curPos), False);
			ItemValue := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Metascore original:|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, '0</', '.0', True, False, True);
			ItemValue := StringReplace(ItemValue, '1</', '.1', True, False, True);
			ItemValue := StringReplace(ItemValue, '2</', '.2', True, False, True);
			ItemValue := StringReplace(ItemValue, '3</', '.3', True, False, True);
			ItemValue := StringReplace(ItemValue, '4</', '.4', True, False, True);
			ItemValue := StringReplace(ItemValue, '5</', '.5', True, False, True);
			ItemValue := StringReplace(ItemValue, '6</', '.6', True, False, True);
			ItemValue := StringReplace(ItemValue, '7</', '.7', True, False, True);
			ItemValue := StringReplace(ItemValue, '8</', '.8', True, False, True);
			ItemValue := StringReplace(ItemValue, '9</', '.9', True, False, True);
			If ItemValue <> '' Then AddCustomFieldValueByName('Metascore', FloatToStr((StrToFloat(ItemValue) * 1)));
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Metascore in PVD format (CF~Metascore~):|' + ItemValue + '||');
		End;  //If endPos > 0 Then Begin should end here

		//(*
		LogMessage('Function ParsePage_IMDBMovieBASE - '#13#10 + '');
		//*)

		//(*
		//Get Cast. Only info from the main movie page
		If Not (FullCreditsPageDownloaded) And Not (ReferencePageDownloaded) Then Begin

			If Not ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin

				//Get ~directors~ And (CF~IMDb Directed by:~)
				//Initialize (CF~IMDb Directed by~) with "A FILM BY" before the name, everything in uppercase:
				ItemValue99 := '';
				LogMessage('Function ParsePage_IMDBMovieBASE -Initializing ItemValue99 for (CF~IMDb Directed by~):|' + ItemValue99);

				//Get ~ctDirectors~
				curPos := Pos('>Director', HTML);
				LogMessage('Function ParsePage_IMDBMovieBASE - ctDirectors section located and parsed.');

				//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
				endPos := PosFrom('</li></ul></div>', HTML, curPos);
				ItemList := Copy(HTML, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted ctDirectors crew summary.');
				curPos := Pos('<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', ItemList);
				index := 1;
				While curPos > 0 Do Begin
					If (index > PEOPLE_LIMITS) Then Break;  //Limit exceeded

					//Get PersonURL (It must always be present)
					PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, '<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', '/?ref_=tt', False, curPos) + BASE_URL_SUF;
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results PersonURL for ctDirectors:|' + PersonURL + '||');

					//Get Name (It must always be present)
					Name := TextBetWeen(ItemList, '">', '<', False, curPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result Name for ctDirectors:|' + Name + '||');

					//Get Role NO: PVD doesn't save Role in Crew
					If Pos('www.imdb.com/name//', PersonURL) < 1 Then Begin
						AddMoviePerson(Name, '', '', PersonURL, ctDirectors);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get results Director for ctDirectors: #' + IntToStr(index) + '|' + Name + '|' + PersonURL + '||ctDirectors');
					End;  //If Pos('https://www.imdb.com/name//', PersonURL) < 1 Then Begin should end here

					//Get  (CF~IMDb Directed by:~) (formatted as "A FILM BY [Name]")
					If ItemValue99 = '' Then Begin
						ItemValue99 :=  'A ' + UpperCase(MediaTypeBase) + ' BY  '+ UpperCase(Name)
					End Else Begin
						ItemValue99 := ItemValue99 + ' • ' + UpperCase(Name);
						LogMessage('Function ParsePage_IMDBMovieBASE - Updated ItemValue99 for (CF~IMDb Directed by~):|' + ItemValue99);
					End;  //If ItemValue99 = '' Then Begin should end here

					curPos := PosFrom('<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', ItemList, curPos);
					index := index + 1;
				End;  //While curPos > 0 Do Begin should end here

				//Verify final value before adding it to the custom field
				LogMessage('Function ParsePage_IMDBMovieBASE - Final (CF~IMDb Directed by~) value (before adding to custom field):|' + ItemValue99);
				//Add (CF~IMDb Directed by:~)
				AddCustomFieldValueByName('IMDb Directed by:', ItemValue99);
				LogMessage('Function ParsePage_IMDBMovieBASE - (CF~IMDb Directed by~) field added with value:|' + ItemValue99);
			End;  //If Not ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here - when Series, Then there is no directors on the main page.

			//Writers Section
			curPos := Pos('">Writers', HTML);  //Strings start which opens the block content data. WEB_SPECIFIC
			curPos := PosFrom('<div class="ipc-metadata-list-item__content-container"><ul class="ipc-inline-list ipc-inline-list--show-dividers ipc-inline-list--inline ipc-metadata-list-item__list-content baseAlt" role="presentation">', HTML, curPos);  //Strings end which opens the block content data. WEB_SPECIFIC
			curPos := curPos + Length('<div class="ipc-metadata-list-item__content-container"><ul class="ipc-inline-list ipc-inline-list--show-dividers ipc-inline-list--inline ipc-metadata-list-item__list-content baseAlt" role="presentation">');  //Strings end which opens the block content data. WEB_SPECIFIC
			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
			endPos := PosFrom('</li></ul></div>', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieBASE - Writers section Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList:|' + ItemList + '||');
			curPos := Pos('<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 1;
			While curPos > 0 Do Begin
				If (index > PEOPLE_LIMITS) Then Break;  //Limited exceeded
				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, '<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', '/?ref_=tt_ov_wr', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results ctWriters PersonURL:|' + PersonURL + '||');
				//Get Name (It must always be present)
				Name := TextBetWeen(ItemList, '">', '<', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ctWriters Name:|' + Name + '||');
				//Get Role NO: PVD don't save Role in crew people
				AddMoviePerson(Name, '', '', PersonURL, ctWriters);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get results Writer:#' + IntToStr(index) + '|' + Name + '|' + PersonURL + '||ctWriters');
				curPos := PosFrom('<a class="ipc-metadata-list-item__list-content-item ipc-metadata-list-item__list-content-item--link" tabindex="0" aria-disabled="false" href="/name/', ItemList, curPos);  //String which opens the subList data. WEB_SPECIFIC
				index := index + 1;
			End;  //While curPos > 0 Do Begin should end here

			//Get ~ctActors~ and (CF~IMDb Cast:~)
			//Get ~ctActors~
			curPos := Pos('<div class="ipc-avatar ipc-avatar--base ipc-avatar--dynamic-width" role="group">', HTML);  //Strings start which opens the block content data. WEB_SPECIFIC
			curPos := curPos + Length('<div class="ipc-avatar ipc-avatar--base ipc-avatar--dynamic-width" role="group">');  //Strings end which opens the block content data. WEB_SPECIFIC
			//Get all "raw" crew summary (in raw because we need the hidden person links) There could be single person or several in the ~crew~
			endPos := PosFrom('</path></svg></a></li></ul></section><script>If(typeof uet === ', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieBASE - Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList:'+ItemList+'||');
			curPos := Pos('" class="ipc-image" loading="', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 1;
			While curPos > 0 Do Begin
				If (index > PEOPLE_LIMITS) Then Break;  //Limited exceeded.
				//Get PersonURL (It must always be present)
				ItemValue := TextBetWeen(ItemList, '<a data-testid="title-cast-item__actor" href="/name/', '/?ref_=tt_cst_t_', False, curPos);
				If ItemValue = '' Then Break;  //No more valid entries.
				PersonURL := BASE_URL_PERSON_PRE + ItemValue + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results ctActors PersonURL:' + PersonURL + '||');

				//Get Name (Always must it has)
				Name := TextBetWeen(ItemList, '">', '</a>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				If Name = '' Then Break;  //No more valid entries.
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results ctActors Name:' + Name + '||');

				//Get Role YES: PVD saves Role in cast (actors) people (Not always has link)
				If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin
					Role := TextBetWeen(ItemList, 'title-cast-item__char" data-testid="cast-item-characters-link"><span', '/span></a>', False, curPos);
					Role := TextBetWeenFirst(Role, '>', '<');  //Strings which opens/closes the data. WEB_SPECIFIC
					sEpisodes := TextBetWeen(ItemList, 'data-testid="title-cast-item__eps-toggle__large">', '</button>', False, curPos);
					sYear := TextBetWeen(ItemList, '</button><span> • ', '</span>', False, curPos);
					Role := Role + '                  ' + sEpisodes + ' ' + sYear;
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results ctActors Series Role:|' + Role + '||');
					//Conditionally add movie person
					AddMoviePerson(Name, '', Role, PersonURL, ctActors);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results ctActors Actor: #' + IntToStr(index) + '|' + Name + '|' + Role + '|' + PersonURL + '||ctActors');
				End Else Begin
					//Get Role YES: PVD saves Role in cast (actors) people (Not always has link)
					Role := TextBetWeen(ItemList, ' title-cast-item__char" data-testid="cast-item-characters-link"><span class="sc', '/span></a>', False, curPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results 1st ctActors Role:|' + Role + '||');
					Role := TextBetWeenFirst(Role, '>', '<');  //Strings which opens/closes the data. WEB_SPECIFIC
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results ctActors Role:|' + Role + '||');
					//Conditionally add movie person
					AddMoviePerson(Name, '', Role, PersonURL, ctActors);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results ctActors Actor: #' + IntToStr(index) + '|' + Name + '|' + Role + '|' + PersonURL + '||ctActors');
				End;  //If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here
				curPos := PosFrom('<a data-testid="title-cast-item__actor" href="/name/', ItemList, curPos);  //String which opens the Web Result item List data. WEB_SPECIFIC
				index := index + 1;
			End;  //While curPos > 0 Do Begin should end here

			LogMessage('Function ParsePage_IMDBMovieBASE - '#13#10 + '');

			//Get (CF~IMDb Cast:~) cast, up to 15 names for the design of my skin
			LogMessage('Function ParsePage_IMDBMovieBASE - Starting 15 names (CF~IMDb Cast:~) extraction process.');
			curPos := Pos('<div class="ipc-avatar ipc-avatar--base ipc-avatar--dynamic-width" role="group">', HTML);  //Start of cast block
			curPos := curPos + Length('<div class="ipc-avatar ipc-avatar--base ipc-avatar--dynamic-width" role="group">');  //Strings end which opens the block content data. WEB_SPECIFIC
			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
			endPos := PosFrom('</path></svg></a></li></ul></section><script>If(typeof uet === ', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieBASE - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList:|' + ItemList + '||');
			curPos := Pos('<a data-testid="title-cast-item__actor" href="/name/', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 1;
			ItemValue1 := '';  //Initialize the custom IMDb Cast field up to 15 names for the design of my skin
			While (curPos > 0) And (index <= 15) Do Begin
				//Get PersonURL (Always must it has)
				ItemValue := TextBetWeen(ItemList, '<a data-testid="title-cast-item__actor" href="/name/', '?ref_=tt_cst_t_', False, curPos);
				PersonURL := BASE_URL_PERSON_PRE + ItemValue + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results PersonURL for 15 names (CF~IMDb Cast:~):|' + PersonURL + '||');
				//Get Name (It must always be present)
				Name := TextBetWeen(ItemList, '">', '</a>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse Results Name for 15 names (CF~IMDb Cast:~):|' + Name + '||');
				//Custom field: IMDb Cast (names only, separated by " • ")
				If ItemValue1 = '' Then
					ItemValue1 := Name
				Else
					ItemValue1 := ItemValue1 + ' • ' + Name;
				curPos := PosFrom('<a data-testid="title-cast-item__actor" href="/name/', ItemList, curPos);  //Move to the next actor's block
				index := index + 1;
			End;  //While (curPos > 0) And (index <= 15) Do Begin should end here

			//Add (CF~IMDb Cast:~)
			AddCustomFieldValueByName('IMDb Cast', ItemValue1);
			//Log the IMDb Cast field for verification
			LogMessage('Function ParsePage_IMDBMovieBASE - 15 names (CF~IMDb Cast:~):|' + ItemValue1);
			//Log message and end block as in your script
			LogMessage('Function ParsePage_IMDBMovieBASE - 15 names (CF~IMDb Cast:~) Completed cast extraction process.');
			LogMessage('Function ParsePage_IMDBMovieBASE - '#13#10 + '');
		End;  //If Not (FullCreditsPageDownloaded) And Not (ReferencePageDownloaded) Then Begin should end here

		//Go to "Soundtracks" ~crew~ctComposers
		//No Composers on Main Page anymore
		LogMessage('Function ParsePage_IMDBMovieBASE - No Composers on Main Page anymore' + #13#10);

		//Go to "Producers" ~crew~ctProducers
		//No Producers in principal page.
		LogMessage('Function ParsePage_IMDBMovieBASE - No Producers on Main Page anymore' + #13#10);

		//Get (CF~IMDB Plot Summary~) as ~comment~ //debug_pos1-1
		curPos := Pos('<span role="presentation" data-testid="plot-xl"', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			ItemValue := TextBetWeen(HTML, '">', '</span></p>', False, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - AVOIDED ALWAYS1: Get (CF~IMDB Plot Summary~) as ~comment~:|' + #13#10 + ItemValue + '||');
			curPos := Pos('If(', ItemValue);
			If curPos >0 Then ItemValue := Copy(ItemValue, 0, curPos - 1);
			curPos := Pos('IMDb RATING', ItemValue);
			If curPos >0 Then ItemValue := Copy(ItemValue, 0, curPos - 1);
			AddCustomFieldValueByName('IMDB Plot Summary', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieBASE - AVOIDED ALWAYS: Added (CF~IMDB Plot Summary~) as ~comment~:|' + #13#10 + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here

		//(*
		//Get (CF~IMDB Release date~) And (CF~IMDB Release dates~)
		curPos := Pos('/releaseinfo/?ref_=tt_dt_rdat">Release date</a><div class="ipc-metadata-list-item__content-container">', HTML);
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := TextBetWeen(HTML, '<li role="presentation" class="ipc-inline-list__item">', '</a></li></ul>', False, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get results Release Date1:|' + ItemValue);
			debug_pos1 := Pos(' (', ItemValue);
			If debug_pos1 > 0 Then ItemValue := Copy(ItemValue, 0, debug_pos1-1);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get results (CF~IMDB Release date~) And (CF~IMDB Release dates~):|' + ItemValue);
			//AddCustomFieldValueByName('IMDB Release Date', ItemValue);
			//AddCustomFieldValueByName('IMDB Release Dates', ItemValue);
		End;  //If 0 < curPos Then Begin should end here

		If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[4] = '0')) And Not (USE_SAVED_PVDCONFIG And (ConfigOptions[18] = '0')) Then Begin

			//Get (CF~IMDB Release Date~) in "releaseDate"
			//~rdate~ cannot be added here for sure, because it follows by default the regional settings of your computer and cannot be customized like IMDB Release Date(s). It can be added only If the formats in the HTML and your computer are identical
			curPos := Pos(',"releaseDate":{', HTML);
			If 0 < curPos Then Begin
				curPos := PosFrom('FaqConnection"},"releaseDate":{', HTML, endPos);
				endPos := PosFrom('"LocalizedDisplayableCountry"}', HTML, curPos);
				ItemList2 := Trim(Copy(HTML, curPos, endPos - curPos));
				LogMessage('Function ParsePage_IMDBMovieBASE - Parse results ItemList2:|' + ItemList2);
				If (Length(ItemList2) > 0) Then Begin
					day_s := TextBetWeenFirst(ItemList2, '"day":', ',"month":');
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse results day_s:|' + day_s);
					month_s := TextBetWeenFirst(ItemList2, '"month":', ',"year":');
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse results month_s:|' + month_s);
					year_s := TextBetWeenFirst(ItemList2, '"year":', ',"');
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse results year_s:|' + year_s);
					AddFieldValueXML('year', year_s);
					LogMessage('Function ParsePage_IMDBMovieBASE - Parsed result added to the year field:|' + year_s);
					ItemList12 := day_s + '.' + month_s + '.' + year_s;
					LogMessage('Function ParsePage_IMDBMovieBASE - Parse results ItemList12a:|' + ItemList12);
					ItemList12 := StringReplace(ItemList12, 'null.', '', True, False, True);
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemList12 to be added to the fields:|' + ItemList12);
					AddFieldValueXML('rdate', ItemList12);  //~rdate~ cannot be added here for sure, because being original field it follows by design the regional settings of your computer and cannot be customized like IMDB Release Date(s). It can be added as day_s + '.' + month_s + '.' + year_s; only if the formats in the HTML and your computer are identical.
					//AddCustomFieldValueByName('IMDB Release Date', ItemList12);
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemList12 (CF~IMDB Release Date~) in "releaseDate" added to the fields:|' + ItemList12);
				End;  //If (Length(ItemList2) > 0) Then Begin should end here
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[4] = '0')) And Not (USE_SAVED_PVDCONFIG And (ConfigOptions[18] = '0')) Then Begin should end here

		If Not (ReferencePageDownloaded) Then Begin
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[12] = '0')) Then Begin
				//Get ~country~ (multiple values in a comma separated list) - when "Country/Countries of origin"
				curPos := Pos(' of origin</span>', HTML);  //WEB_SPECIFIC
				If 0 < curPos Then Begin
					endPos := curPos;
					ItemValue := HTMLValues(HTML, ' of origin</span>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
					AddFieldValueXML('country', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results Country/Countries:|' + ItemValue + '||');
				End;  //If 0 < curPos Then Begin should end here
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[12] = '0')) Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) Then Begin should end here
		ItemValueC := ItemValue;  //Needed for getting English title

		curPos := Pos('>Also known as<', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '>Also known as<', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
			akaValue := ItemValue;  //Needed out of If Not (ReleaseInfoPageDownloaded) And Not (ReferencePageDownloaded) Then Begin because of IMdb Title 1 when LocalTitleValue is empty

			If Not (ReleaseInfoPageDownloaded) And Not (ReferencePageDownloaded) Then Begin
				//Get ~aka~ And (CF~Imdb Aka~) Only the info from the main movie page. Displayed result on the page depends on GeoIP - AddFieldValueXML('aka', ItemValue);
				AddCustomFieldValueByName('Imdb Aka', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~aka~ And (CF~Imdb Aka~):|' + ItemValue + '||');
			End;  //If Not (ReleaseInfoPageDownloaded) And Not (ReferencePageDownloaded) Then Begin should end here
		End;  //If 0 < curPos Then Begin should end here

		If Not (ReferencePageDownloaded) Then Begin
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[19] = '0')) Then Begin
				//Get ~budget~
				curPos := Pos('>Budget<', HTML);  //WEB_SPECIFIC
				If 0 < curPos Then Begin
					curPos := PosFrom('"false"', HTML, curPos);  //WEB_SPECIFIC
					ItemValue := TextBetWeen(HTML, '>', '<', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemValue before StrinReplace for (~budget~):|' + ItemValue);
					ItemValue := StringReplace(ItemValue, ' (estimated)', '', True, True, False);  //Eliminate '(estimated)' if exists
					If ItemValue <> '' Then AddCustomFieldValueByName('ProductionBudget', ItemValue);
					ItemValue := StringReplace(ItemValue, #36, '', True, True, False);  //Eliminate '$' if exists
					ItemValue := StringReplace(ItemValue, '€', '', True, True, False);  //Eliminate '€' if exists
					ItemValue := StringReplace(ItemValue, 'CN₯', '', True, True, False);  //Eliminate 'CN₯' if exists
					ItemValue := StringReplace(ItemValue, ',', '', True, True, False);  //Eliminate ',' if exists
					AddFieldValueXML('budget', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - ParsePage_IMDBMovieBASE - Get results ~budget~:|' + ItemValue + '||');
				End;  //f 0 < curPos Then Begin should end here
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[19] = '0')) Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) Then Begin should end here

		//Get (CF~Domestic~) Gross US & Canada
		curPos:=Pos('>Gross US & Canada<',HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			curPos := PosFrom('"false"', HTML, curPos);  //WEB_SPECIFIC
			ItemValue := TextBetWeen(HTML, '>', '<', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			LogMessage('Function ParsePage_IMDBMovieBASE - ItemValue for Box Office Gross US & Canada (CF~Domestic~):|' + ItemValue);
			If ItemValue <> '' Then AddCustomFieldValueByName('Domestic',ItemValue);
			ItemValue:=StringReplace(ItemValue,#36,'',True,True,False);  //Eliminate '$' if exists
			ItemValue:=StringReplace(ItemValue,'€','',True,True,False);  //Eliminate '€' if exists
			ItemValue := StringReplace(ItemValue, 'CN₯', '', True, True, False);  //Eliminate 'CN₯' if exists
			ItemValue:=StringReplace(ItemValue,',','',True,True,False);  //Eliminate ',' if exists
			LogMessage('Function ParsePage_IMDBMovieBASE - Get results Box Office Gross US & Canada (CF~Domestic~):'+ItemValue+'||');
		End;  //If 0 < curPos Then Begin should end here

		If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[20] = '0')) Then Begin
			//Get ~money~ +  (CF~Worldwide~) Box Office worldwide
			curPos := Pos('>Gross worldwide<', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				curPos := PosFrom('"false"', HTML, curPos);  //WEB_SPECIFIC
				ItemValue := TextBetWeen(HTML, '>', '<', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieBASE - ItemValue before StrinReplace for (~budget~):|' + ItemValue);

				//Process the monetary value for XML
				MoneyValue := ItemValue;
				MoneyValue := StringReplace(MoneyValue, #36, '', True, True, False);  //Eliminate '$' if exists
				MoneyValue := StringReplace(MoneyValue, '€', '', True, True, False);  //Eliminate '€' if exists
				//MoneyValue := StringReplace(ItemValue, 'CN₯', '', True, True, False);  //Eliminate 'CN₯' if exists
				MoneyValue := StringReplace(MoneyValue, ',', '', True, True, False);  //Eliminate ',' if exists
				LogMessage('Function ParsePage_IMDBMovieBASE - Processed Box Office value for (~money~):|' + MoneyValue);
				AddFieldValueXML('money', MoneyValue);

				//Add the Worldwide value with currency symbol
				If ItemValue <> '' Then AddCustomFieldValueByName('Worldwide', ItemValue);

				LogMessage('Function ParsePage_IMDBMovieBASE - Get results Box Office worldwide ~money~ +  (CF~Worldwide~):|' + MoneyValue + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[20] = '0')) Then Begin should end here

		LogMessage('Function ParsePage_IMDBMovieBASE -  Value of ReferencePageDownloaded for Studio:|' + BoolToStr(ReferencePageDownloaded));

		If Not (ReferencePageDownloaded) Then Begin
			//Get ~studio~ "Production Co" (multiple values in a comma separated list)
			curPos := Pos('">Production compan', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues(HTML, '">Production compan', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get ItemValue Studio/Production Co multiple:|' + ItemValue + '||');
				AddFieldValueXML('studio', ItemValue);
				//Custom field: IMDb Studio2 (formatted as "STUDIO RELEASE BY\n[ItemValue]")
				If ItemValue <> '' Then Begin
					ItemValue := 'STUDIO RELEASE BY' + #13#10 + ItemValue;
					AddCustomFieldValueByName('IMDb Studio2', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results Studio/Production Co multiple:|' + ItemValue + '||');
				End;  //If ItemValue <> '' Then Begin should end here
			End;  //If 0 < curPos Then Begin should end here

			//Get (CF~IMDb_Filming_Locations~)
			curPos := Pos('>Filming locations<', HTML);
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues(HTML, '>Filming locations<', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
				ItemValue := StringReplace(ItemValue, 'See more »', '', True, True, False);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('IMDb_Filming_Locations', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results CF~IMDb_Filming_Locations~ :|' + ItemValue + '||');
				End;  //If ItemValue <> '' Then Begin should end here
			End;  //If 0 < curPos Then Begin should end here

			//From this point forward it's all about geting ~title~ in English from the Main page, up to the line /Get the original "Runtime" (in minutes) as ~length~...
			If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[13] = '0')) Then Begin
				//Get ~origlang~ (multiple or single values in a comma separated list) instead of the audio channels of the user's movie copy
				curPos := Pos('"false">Language', HTML);  //WEB_SPECIFIC
				LogMessage('curPos for "false">Language:|' + IntToStr(curPos));

				If 0 < curPos Then Begin
					endPos := curPos;
					ItemValue := HTMLValues(HTML, '"false">Language', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
					If ItemValue <> '' Then AddCustomFieldValueByName('Language:', ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for ~origlang~ Language multiple:|' + ItemValue + '||');
					ItemValue0 := ItemValue;
					debug_pos1 := Pos(', ', ItemValue0);
					If (Pos('English', ItemValue0) > 0) And ((ItemValueC = 'United States') Or (ItemValueC = 'United Kingdom') Or (ItemValueC = 'Australia') Or (ItemValueC = 'New Zealand') Or (ItemValueC = 'Canada') Or (ItemValueC = 'Ireland')) Then Begin
						ItemValue0 := 'English';
						LogMessage('Function ParsePage_IMDBMovieBASE -It is English movie, so single ItemValue0 for ~origlang~ :|' + ItemValue0 + '||');
					End Else Begin
							If debug_pos1 > 0 Then Begin
							ItemValue0 := Copy(ItemValue0, 0, debug_pos1 - 1);
							LogMessage('Function ParsePage_IMDBMovieBASE -It is NOT an English movie, so single ItemValue0 for ~origlang~ :|' + ItemValue0 + '||');
						End;  //If debug_pos1 > 0 Then Begin should end here
					End;  //If (Pos('English', ItemValue0) > 0) And ((ItemValueC = 'United States') Or (ItemValueC = 'United Kingdom') Or (ItemValueC = 'Australia') Or (ItemValueC = 'New Zealand') Or (ItemValueC = 'Canada') Or (ItemValueC = 'Ireland')) Then Begin should end here
					AddFieldValueXML('origlang', ItemValue0);
				End;  //If 0 < curPos Then Begin should end here
			End;  //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[13] = '0')) Then Begin should end here
			LogMessage('Function ParsePage_IMDBMovieBASE - Checking ItemValue0 before deciding if using akaValue:|' + ItemValue0 + '||');

			//In cases for episodes there is no aka, plus no Local titles
			If Pos('Episode', MediaTypeBase) > 0 Then Begin
				AddCustomFieldValueByName('Imdb Title 1', OrigTitleValue + ' (' + year_s + ')' + ' (original title only)');  //"Imdb Title (Year):" caption in my skin
			End Else Begin
				//Decide Imdb Title 1 according to rules:
				//1. LocalTitle ? OrigTitle And LocalTitle not empty ? Local + Original
				//2. LocalTitle = OrigTitle OR LocalTitle empty ?
				//   • Non-English movie • aka + Original
				//   • English movie • Original only

				//Debug: log all values before decision tree
				LogMessage('Function DownloadPage - Check if aka is already stored:|' + GetFieldValueXML('aka') + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - Checking akaValue before deciding if contains Non-Western characters:|' + akaValue + '||');
				If ContainsNonLatinUTF8(akaValue) Then Begin
					LogMessage('Function ParsePage_IMDBMovieBASE - NON-LATIN UTF8 DETECTED so CLEARING akaValue.');
					akaValue := OrigTitleValue;
				End Else Begin
					LogMessage('Function ParsePage_IMDBMovieBASE - akaValue KEPT: "' + akaValue + '"');
				End;  //If ContainsNonLatinUTF8(akaValue) Then Begin should end here

				If (Pos('>How long is ', HTML) > 0) And (ItemValue0 = 'English') And (akaValue = Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is '))) Then titleValue := akaValue;
				LogMessage('Function ParsePage_IMDBMovieBASE - Is akaValue = titleValue: akaValue=' + akaValue + '|| titleValue=' + titleValue + '||');

				If (akaValue <> Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is '))) And (Pos('>How long is ', HTML) > 0) And (ItemValue0 <> 'English') Then akaValue := Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is '));

				If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) And Not (FullCreditsPageDownloaded)Then Begin
					If Not (ItemValue0 = 'English') Then Begin
						AddCustomFieldValueByName('Title1', akaValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Debug values 1st branch: ItemValue0=' + ItemValue0 + ', OrigTitle=' + OrigTitleValue + ', LocalTitle=' + LocalTitleValue + ', title (titleValue)=' + titleValue + ', Title1=' + akaValue + ', akaValue=' + akaValue + ', year=' + GetFieldValueXML('year'));
					End Else Begin
						AddCustomFieldValueByName('Title1', titleValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Debug values 2nd branch: ItemValue0=' + ItemValue0 + ', OrigTitle=' + OrigTitleValue + ', LocalTitle=' + LocalTitleValue + ', title (titleValue)=' + titleValue + ', Title1=' + titleValue + ', akaValue=' + akaValue + ', year=' + GetFieldValueXML('year'));
					End;  //If Not (ItemValue0 = 'English') Then Begin should end here

					//Rule 1: Local present and different
					LogMessage('Function ParsePage_IMDBMovieBASE - Get results ItemValue before deciding which titles to choose:|' + ItemValue + '||');
					If (LocalTitleValue <> '') And (LocalTitleValue <> OrigTitleValue) Then Begin
						If (Pos('Serb', ItemValue) > 0) Or (Pos('Croat', ItemValue) > 0) Or (Pos('Bosn', ItemValue) > 0) Or (Pos('Maced', ItemValue) > 0) Or (Pos('Sloven', ItemValue) > 0) Then Begin
							AddCustomFieldValueByName('Imdb Title 1', LocalTitleValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
							AddCustomFieldValueByName('Localized title', LocalTitleValue);
							AddCustomFieldValueByName('Imdb_Title', OrigTitleValue + ' (original title) / ' + LocalTitleValue + ' (local title)');
							If (ItemValue0 = 'English') Then Begin
								AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
								AddCustomFieldValueByName('Title', titleValue);
								LogMessage('Function ParsePage_IMDBMovieBASE - Probably ex-Yu movie so Added ~title~ as titleValue:|' + LocalTitleValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
							End Else Begin
								AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
								AddCustomFieldValueByName('Title', akaValue);
								LogMessage('Function ParsePage_IMDBMovieBASE - Probably ex-Yu movie so Added ~title~ as akaValue:|' +akaValue);
							End;  //If (ItemValue0 = 'English') Then Begin should end here
							LogMessage('Function ParsePage_IMDBMovieBASE - when there is ex-Yu language in ~CF Languages:~ added LocalTitleValue to Imdb Title 1:|' + LocalTitleValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');

						End Else Begin

							AddCustomFieldValueByName('Imdb Title 1', LocalTitleValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
							LogMessage('Function ParsePage_IMDBMovieBASE - Added LocalTitleValue to Imdb Title 1:|' + LocalTitleValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
							If ((Pos('English, ', ItemValue) > 0) Or (Pos(', English', ItemValue) > 0)) Or ((Pos('>How long is ', HTML) > 0) And (akaValue <> Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')))) Then Begin
								If (ItemValue0 <> 'English') Then Begin
									If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
										If Pos('number-of-seasons">How many seasons does ', HTML) > 0 Then Begin
											curPos := Pos('number-of-seasons">How many seasons does ', HTML) + Length('number-of-seasons">How many seasons does ');
											endPos := PosFrom(' have?</a>', HTML, curPos);
											titleValueS := Copy(HTML, curPos, endPos - curPos);
											AddCustomFieldValueByName('Title1', titleValueS);
											AddFieldValueXML('title', titleValueS);  //Needed like this for getting proper Movie Connections inside PVD
											LogMessage('Function ParsePage_IMDBMovieBASE - Added for  Series English ~title~ as titleValueS to ~title~:|' + titleValueS + '||');
										End;  //If Pos('number-of-seasons">How many seasons does ', HTML) > 0 Then Begin should end here
									End Else Begin
										AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
										LogMessage('Function ParsePage_IMDBMovieBASE - Get English ~title~ as akaValue for non-English movies:|' + akaValue + '||');
									End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin should end here

								End Else Begin
									If (Pos('>How long is ', HTML) > 0) And (ItemValue0 = 'English') And (titleValue <> '') And (titleValue <> LocalTitleValue) And (titleValue <> akaValue) Then Begin
										titleValue := Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is '));
										AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
										AddCustomFieldValueByName('Title1', titleValue);
										LogMessage('Function ParsePage_IMDBMovieBASE - Get titleValue when it is diferrent then all other titles and origlang=English:|' + titleValue + '||');
									End Else Begin
										If (Pos('>How long is ', HTML) > 0) And (ItemValue0 = 'English') And (titleValue <> '') And (titleValue <> LocalTitleValue) And (titleValue = akaValue) Then Begin
											titleValue := Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is '));
											AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
											AddCustomFieldValueByName('Title1', titleValue);
											LogMessage('Function ParsePage_IMDBMovieBASE - Get titleValue when it is the same as all other titles except LocalTitleValue and origlang=English:|' + titleValue + '||');
										End Else Begin
											AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
											LogMessage('Function ParsePage_IMDBMovieBASE - Get English ~title~ as titleValue for non-English movies:|' + titleValue + '||');
										End;  //If (Pos('>How long is ', HTML) > 0) And (ItemValue0 = 'English') And (titleValue <> '') And (titleValue <> LocalTitleValue) And (titleValue = akaValue) Then Begin should end here
									End;  //If (Pos('>How long is ', HTML) > 0) And (ItemValue0 = 'English') And (titleValue <> '') And (titleValue <> LocalTitleValue) And (titleValue <> akaValue) Then Begin should end here
								End;  //If (ItemValue0 <> 'English') Then Begin should end here
							End Else Begin
								AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
							End;  //If ((Pos('English, ', ItemValue) > 0) Or (Pos(', English', ItemValue) > 0)) Or ((Pos('>How long is ', HTML) > 0) And (akaValue <> Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')))) Then Begin should end here
						End;  //If (Pos('Serb', ItemValue) > 0) Or (Pos('Croat', ItemValue) > 0) Or (Pos('Bosn', ItemValue) > 0) Or (Pos('Maced', ItemValue) > 0) Or (Pos('Sloven', ItemValue) > 0) Then Begin should end here

					End Else Begin

						//Rule 2: Local = Orig OR Local empty
						If Pos('English', ItemValue) = 0 Then Begin
							AddCustomFieldValueByName('Imdb Title 1', akaValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
							AddCustomFieldValueByName('Localized title', akaValue);
							If (Pos('Serb', ItemValue) > 0) Or (Pos('Croat', ItemValue) > 0) Or (Pos('Bosn', ItemValue) > 0) Or (Pos('Maced', ItemValue) > 0) Or (Pos('Sloven', ItemValue) > 0) Then Begin
								AddCustomFieldValueByName('Imdb_Title', titleValue + ' (original title) / ' + titleValue + ' (no local title)');
								AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
								AddCustomFieldValueByName('Title1', titleValue);
								LogMessage('Function ParsePage_IMDBMovieBASE - Added for origlang=ex-Yu ~title~ as titleValue to ~title~:|' + titleValue + '||');
							End Else Begin
								AddCustomFieldValueByName('Imdb_Title', titleValue + ' (original title) / ' + akaValue + ' (no local title)');
							End;  //If (Pos('Serb', ItemValue) > 0) Or (Pos('Croat', ItemValue) > 0) Or (Pos('Bosn', ItemValue) > 0) Or (Pos('Maced', ItemValue) > 0) Or (Pos('Sloven', ItemValue) > 0) Then Begin should end here
							AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
							AddCustomFieldValueByName('Title', akaValue);
							LogMessage('Function ParsePage_IMDBMovieBASE - Added akaValue to Imdb Title 1:|' + akaValue + ' (' + GetFieldValueXML('year') + ')' + #13#10 + OrigTitleValue + ' (original title)');
						End Else Begin
							AddCustomFieldValueByName('Imdb Title 1', OrigTitleValue + ' (' + GetFieldValueXML('year') + ') (original title only)');
							//If (Pos('Serb', ItemValue) > 0) Or (Pos('Croat', ItemValue) > 0) Or (Pos('Bosn', ItemValue) > 0) Then
							If ((Pos('English, ', ItemValue) > 0) Or (Pos(', English', ItemValue) > 0)) Or ((Pos('>How long is ', HTML) > 0) And (akaValue <> Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')))) Then Begin
								If (ItemValue0 = 'English') Then Begin
									If Pos('>How long is ', HTML) > 0 Then Begin
										AddFieldValueXML('title', Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')));  //Needed like this for getting proper Movie Connections inside PVD
										AddCustomFieldValueByName('Title1', Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')));
										LogMessage('Function ParsePage_IMDBMovieBASE - Added for origlang=English ~title~ as ">How long is" value to ~title~:|' + akaValue + '||');
									End Else Begin
										If debug_pos1 > 0 Then Begin
											AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
											AddCustomFieldValueByName('Title1', akaValue);
											LogMessage('Function ParsePage_IMDBMovieBASE - Added for origlang=English ~title~ as akaValue to ~title~:|' + akaValue + '||');
										End Else Begin
											AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
											AddCustomFieldValueByName('Title1', titleValue);
											LogMessage('Function ParsePage_IMDBMovieBASE - Added for origlang=English ~title~ as titleValue to ~title~:|' + titleValue + '||');
										End;  //If debug_pos1 > 0 Then Begin should end here
									End;  //If Pos('>How long is ', HTML) > 0 Then Begin should end here
								End Else Begin
									AddFieldValueXML('title', akaValue);  //Needed like this for getting proper Movie Connections inside PVD
									LogMessage('Function ParsePage_IMDBMovieBASE - Added for origlang<>English ~title~ as akaValue to ~title~:|' + akaValue + '||');
								End;  //If (ItemValue0 = 'English') Then Begin should end here
							End Else Begin
								AddFieldValueXML('title', titleValue);  //Needed like this for getting proper Movie Connections inside PVD
								LogMessage('Function ParsePage_IMDBMovieBASE - Added ~title~ as titleValue to ~title~:|' + titleValue + '||');
							End;  //If ((Pos('English, ', ItemValue) > 0) Or (Pos(', English', ItemValue) > 0)) Or ((Pos('>How long is ', HTML) > 0) And (akaValue <> Copy(HTML, Pos('>How long is ', HTML) + Length('>How long is '), PosFrom('?</a>', HTML, Pos('>How long is ', HTML)) - Pos('>How long is ', HTML) - Length('>How long is ')))) Then Begin should end here
							LogMessage('Function ParsePage_IMDBMovieBASE - Added original only to Imdb Title 1:|' + OrigTitleValue + ' (' + GetFieldValueXML('year') + ') (original title only)');
						End;  //If Pos('English', ItemValue) = 0 Then Begin should end here

					End;  //If (LocalTitleValue <> '') And (LocalTitleValue <> OrigTitleValue) Then Begin should end here
				End;  //If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) And Not (FullCreditsPageDownloaded)Then Begin should end here
			End;  //If Pos('Episode', MediaTypeBase) > 0 Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) Then Begin should end here
		//*)


		If Not (ReferencePageDownloaded) And Not (TechnicalPageDownloaded) Then Begin
			//Get the original "Runtime" (in minutes) as ~length~ (in seconds) instead of the duration of the user movie copy
			StartPos := Pos('>Runtime<', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - Log the file size to know if ~length~ is to be added or not:|' + GetFieldValueXML('size'));
			LogMessage('Function ParsePage_IMDBMovieBASE - Log the length to know if ~length~ is to be added or not:|' + GetSeriesFieldValueXML('length'));
			If StartPos > 0 Then Begin
				HoursStr := TextBetween(HTML, '<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">', '</span>', False, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - HoursStr (text):|' + HoursStr);
				MinutesStr := TextBetween(HTML, '<span class="ipc-metadata-list-item__list-content-item--subText">', '</span>', False, StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - MinutesStr (text):|' + MinutesStr);
				ItemValue := HoursStr + ' ' + MinutesStr;
				LogMessage('Function ParsePage_IMDBMovieBASE - Run time1 (ItemValue):|' + ItemValue);
				ItemValue := TextBetWeenFirst(ItemValue, '(', ' min)');
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted minutes from ItemValue:|' + IntToStr(StrToInt(ItemValue)));
				Minutes := StrToInt(ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Extracted minutes:|' + IntToStr(Minutes));
				If (Pos('h', HoursStr) = 0) And (Pos ('m', HoursStr) > 0) Then Begin
					MinutesStr := HoursStr;
					LogMessage('Function ParsePage_IMDBMovieBASE - MinutesStr when no hours:|' + MinutesStr);
					ItemValue := MinutesStr;
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemValue when no hours:|' + ItemValue);
					endPos := Pos ('m', ItemValue);
					ItemValue := Copy(ItemValue, 1, endPos - 1);
					LogMessage('Function ParsePage_IMDBMovieBASE - ItemValue when no hours with Copy(ItemValue, 1, endPos):|' + ItemValue);
					Minutes := StrToInt(ItemValue);
					LogMessage('Function ParsePage_IMDBMovieBASE - Extracted minutes when no hours:|' + IntToStr(Minutes));
				End;  //If (Pos('h', HoursStr) = 0) And (Pos ('m', HoursStr) > 0) Then Begin should end here
				AddCustomFieldValueByName('Run time1', IntToStr(Minutes));
				LogMessage('Function ParsePage_IMDBMovieBASE - Added to (CF~Run time1~):|' + IntToStr(Minutes));
				If ((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0')) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue)));  //~length~ Value in seconds.
				LogMessage('Function ParsePage_IMDBMovieBASE - ~length~ (seconds):|' + IntToStr(StrToInt(ItemValue) * 60));
			End Else Begin
				If Pos('"runtime":{"displayableProperty":{"value":{"plainText":"', HTML) > 0 Then Begin
					curPos := Pos('"runtime":{"displayableProperty":{"value":{"plainText":"', HTML) + Length('"runtime":{"displayableProperty":{"value":{"plainText":"');
					endPos := PosFrom('","__typename":', HTML, curPos);
					ItemValue := Copy(HTML, curPos, endPos - curPos);   // e.g. "32m" or "2h 32m"
					HoursStr := '0';
					MinutesStr := '0';
					If Pos('h', ItemValue) > 0 Then Begin
						HoursStr := Copy(ItemValue, 1, Pos('h', ItemValue) - 1);
						If Pos('m', ItemValue) > 0 Then Begin
							MinutesStr := Copy(ItemValue, Pos('h', ItemValue) + 1, Length(ItemValue));
							MinutesStr := StringReplace(MinutesStr, 'm', '', True, False, False);
							MinutesStr := Trim(MinutesStr);
						End;  //If Pos('m', ItemValue) > 0 Then Begin should end here

					End Else Begin

						If Pos('m', ItemValue) > 0 Then MinutesStr := StringReplace(ItemValue, 'm', '', True, False, False);
					End;  //If Pos('h', ItemValue) > 0 Then Begin should end here

					HoursStr := Trim(HoursStr);
					MinutesStr := Trim(MinutesStr);

					//Convert directly here
					ItemValue := IntToStr(StrToIntDef(HoursStr, 0) * 60 + StrToIntDef(MinutesStr, 0));

					If ((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0')) Then AddFieldValueXML('length', IntToStr(StrToInt(ItemValue) * 60));  //~length~ Value in seconds.

					LogMessage('Function ParsePage_IMDBMovieBASE - ~length~ (seconds):|' + IntToStr(StrToInt(ItemValue) * 60));

				End Else Begin

					LogMessage('Function ParsePage_IMDBMovieBASE - duration/length not found');
				End;  //If Pos('"runtime":{"displayableProperty":{"value":{"plainText":"', HTML) > 0 Then Begin should end here

			End;  //If StartPos > 0 Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) And Not (TechnicalPageDownloaded) Then Begin should end here

		If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) Then Begin
			//Get ~tags~ "keywords" (field with multiple values in a comma separated list)
			curPos := Pos('"keywords":{', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues(HTML, '"keywords":{', '"TitleKeywordConnection"', '"text":"', '","', ', ', endPos);
				AddFieldValueXML('tags', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get results Tags:|' + ItemValue + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) Then Begin should end here

		If Not (KeywordsPageDownloaded) Then Begin
			//Extract "Plot Keywords" ~tags~ And (CF~Plot Keywords~) information
			curPos := Pos('data-testid="storyline-plot-keywords"', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos: #' + IntToStr(curPos) + '|');
			If 0 < curPos Then Begin
				endPos := PosFrom('data-testid="storyline-plot-links">', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result endPos: #' + IntToStr(endPos) + '|');
			End;  //If 0 < curPos Then Begin should end here

			//Check for "no keywords" message
			If (Pos('It looks like we don' + Chr(39) + 't have any Plot Keywords for this title yet.', HTML) > 0) Then Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - Found no keywords message. Exiting...');
			End;  //If (Pos('It looks like we don' + Chr(39) + 't have any Plot Keywords for this title yet.', HTML) > 0) Then Begin should end here

			//Find the position of the keywords chip list
			curPos := PosFrom('<span class="ipc-chip__text">', HTML, curPos);
			If 0 < curPos Then Begin

				//Initialize counters
				updateCount := 0;
				extraCount := 0;

				//Iterate through all <span class="ipc-chip__text"> tags within the section
				While curPos > 0 Do Begin
					//Stop if the update count reaches the limit
					If updateCount >= PLOTKEYWORDS_LIMIT Then Break;

					//Find the end of the current <span>
					tagendPos := PosFrom('</span>', HTML, curPos);

					//Extract the keyword text
					ItemValue := Copy(HTML, curPos + Length('<span class="ipc-chip__text">'), tagendPos - (curPos + Length('<span class="ipc-chip__text">')));

					//Check if this is a "... more" link
					If Pos('more', LowerCase(ItemValue)) > 0 Then Begin
						tmpStr := Trim(StringReplace(ItemValue, 'more', '', True, True, False));
						extraCount := StrToIntDef(tmpStr, 0);
					End Else Begin
						updateCount := updateCount + 1;
					End;  //If Pos('more', LowerCase(ItemValue)) > 0 Then Begin should end here

					//Move curPos past the </span> to find the next one
					curPos := PosFrom('<span class="ipc-chip__text">', HTML, tagendPos);
				End;  //While curPos > 0 Do Begin should end here

				//Calculate total count including "xxx more"
				totalCount := updateCount + extraCount - 1;

				//Use extracted MoviesID and Category to form the link for (CF~Plot Keywords~)
				AddCustomFieldValueByName('Plot Keywords', '<link url="' + MovieURL + 'keywords/">Plot Keywords</link>' + '      ' + Chr(149) + '     Total Plot keywords / Tags (' + IntToStr(totalCount) + ')' + '     ' + Chr(149));
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Added custom field value for Plot Keywords: <link url="' + MovieURL + 'keywords/">Plot Keywords</link>' + '      ' + Chr(149) + '     Total Plot keywords / Tags (' + IntToStr(totalCount) + ')' + '     ' + Chr(149));
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (KeywordsPageDownloaded) Then Begin should end here

		//LogMessage('Function ParsePage_IMDBMovieBASE - Get results ItemList before If GET_MINI_FEATURES Then Begin:|' + ItemList + '||');
		If GET_MINI_FEATURES Then Begin
			If Not (TechnicalPageDownloaded) Then Begin
				//Get ~features~ (multiline) GET_FULL_FEATURES = True ;
				//Get the original "Runtime" (in minutes) as ~length~ (in seconds) instead of the duration of the user movie copy
				curPos := Pos('>Runtime<', HTML);
				If curPos > 0 Then Begin
					Hours := StrToIntDef(HTMLValue(HTML, curPos, 0, ' aria-disabled="false">', 'h '), 0);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result Original Runtime:|' + IntToStr(Hours) + '||');
					If (Hours <> 0) Then Begin
						curPos := PosFrom(' aria-disabled="false">', HTML, curPos);
						Minutes := StrToIntDef(TextBetween(HTML, 'h ', 'm<', False, curPos), 0);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result Minutes:|' + IntToStr(Minutes) + '||');
						ItemValue := IntToStr(Hours * 60 + Minutes);
					End Else Begin
						curPos := PosFrom(' aria-disabled="false"', HTML, curPos);
						Minutes := StrToIntDef(HTMLValue(HTML, curPos, 0, '>', 'm'), 0);
						ItemValue := IntToStr(Hours * 60 + Minutes);
						LogMessage('Function ParsePage_IMDBMovieBASE - duration:|' + ItemValue);
					End;  //If (Hours <> 0) Then Begin should end here
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result Original Runtime:|' + ItemValue + '||');
					AddCustomFieldValueByName('Imdb Runtime1', IntToStr(Hours) + 'h' + ' ' + IntToStr(Minutes) + 'm (' + ItemValue + ' minutes)');
					ItemList := '';
					ItemList := 'Runtime:|' + ItemList + IntToStr(Hours) + 'h' + ' ' + IntToStr(Minutes) + 'm (' + ItemValue + ' minutes)' + '<br>';
					//AddFieldValueXML('duration', ItemValue);
					If ((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0')) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue)));  //~length~ Value in seconds.
					If ItemValue <> '' Then AddCustomFieldValueByName('Run time1', ItemValue);
					AddCustomFieldValueByName('Run time', ItemValue);
					If ItemValue <> '' Then Begin
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result "Runtime" (in minutes) as ~length~:|' + ItemValue + '||');
					End Else Begin
						LogMessage('Function ParsePage_IMDBMovieBASE - duration/length not found');
					End;  //If ItemValue <> '' Then Begin should end here

					//Get "Color" (CF~Color~), (CF~Imdb Color~), (CF~Imdb_Color~) And (CF~Imdb Color:~) (multiple values in a comma separated list)
					curPos := Pos('>Color</span>', HTML);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos (CF~Color~) & (CF~Imdb Color~):|' + IntToStr(curPos) + '||');
					If 0 < curPos Then Begin
						endPos := curPos;
						ItemValue := HTMLValues2(HTML, '>Color</span>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
						LogMessage('Function ParsePage_IMDBMovieBASE -  Get result ItemValue after HTMLValues2 (CF~Color~) & (CF~Imdb Color~):|' + ItemValue + '||');
						ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);  //WEB_SPECIFIC
						If ItemValue <> '' Then ItemList := ItemList + 'Color:|' + ItemValue + '<br>';
						If ItemValue <> '' Then AddCustomFieldValueByName('Color:', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb_Color', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color:', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE -  Get result (CF~Color~), (CF~Imdb Color~), (CF~Imdb_Color~) And (CF~Imdb Color:~):|' + ItemValue + '||');
					End;  //If 0 < curPos Then Begin should end here
				End;  //If curPos > 0 Then Begin should end here

				If Not (TechnicalPageDownloaded) And Not (ReferencePageDownloaded) Then Begin
					//Get "Sound Mix" info (CF~SILENT_FIELD~), (CF~Imdb SoundMix~) And (CF~Imdb Sound Mix~)  (CF~IMDB - Sound Mix~) (CF~IMDB - Sound Mix~) (CF~IMDB - Sound Mix~) (multiple values in a comma separated list)
					curPos := Pos('>Sound mix</span>', HTML);
					If 0 < curPos Then Begin
						endPos := curPos;
						ItemValue := HTMLValues(HTML, '>Sound mix</span>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
						ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);  //WEB_SPECIFIC
						If ItemValue <> '' Then ItemList := ItemList + 'Sound Mix:|' + ItemValue + '<br>';
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemList After Sound Mix for ~features~:|' + ItemList + '||');
						If ItemValue <> '' Then AddCustomFieldValueByName('Sound Mix:', RemoveTagsEx0(ItemValue));
						AddCustomFieldValueByName('Sound Mix', ItemValue);
						AddCustomFieldValueByName('IMDB - Sound Mix', ItemValue);
						AddCustomFieldValueByName('Imdb SoundMix', ItemValue);
						AddCustomFieldValueByName('Imdb Sound Mix', RemoveTagsEx0(ItemValue));
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~Sound Mix~):|' + ItemValue + '||');
					End;  //If 0 < curPos Then Begin should end here
				End;  //If Not (TechnicalPageDownloaded) And Not (ReferencePageDownloaded) Then Begin should end here

				If Not (TechnicalPageDownloaded) Then Begin
					//Get "Aspect Ratio" (CF~Imdb Aspect Ratio~) (CF~Imdb Aspect Ratio: ~) (CF~Imdb Aspect Ratio~) (CF~Aspect Ratio: ~) multiple values in a comma separated list)
					curPos := Pos('">Aspect ratio</span>', HTML);
					If 0 < curPos Then Begin
						ItemValue := HTMLValues(HTML, '">Aspect ratio</span>', '</ul></div></li>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
						If ItemValue <> '' Then ItemList := ItemList + 'Aspect Ratio:|' + ItemValue + '<br>';
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemList After Aspect Ratio for ~features~:|' + ItemList + '||');
						ItemValue := StringReplace(ItemValue, '/ (high definition)', ' HD', True, False, True);
						ItemValue := StringReplace(ItemValue, '16:9 HD', '16 : 9  HD', True, False, True);
						ItemValue := StringReplace(ItemValue, '4:3', '4 : 3', True, False, True);
						ItemValue := StringReplace(ItemValue, '2.55: 1', '2.55 : 1', True, False, True);
						ItemValue := StringReplace(ItemValue, '2.39: 1', '2.39 : 1', True, False, True);
						ItemValue := StringReplace(ItemValue, '2.40:1', '2.40 : 1', True, False, True);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Aspect Ratio', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Aspect Ratio:', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Aspect Ratio:', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb AspectRatio', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Imdb_Aspect Ratio', ItemValue);
						If ItemValue <> '' Then AddCustomFieldValueByName('Aspect Ratio', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result  (CF~Imdb Aspect Ratio~) (CF~Imdb Aspect Ratio: ~) (CF~Imdb Aspect Ratio~) (CF~Aspect Ratio: ~):|' + ItemValue + '||');
					End;  //If 0 < curPos Then Begin should end here

					//(*
					If (Length(ItemList) > 0) Then Begin
						AddCustomFieldValueByName('Imdb-TechSpecs', ItemList);
						AddCustomFieldValueByName('Imdb TechSpecs', ItemList);
						AddCustomFieldValueByName('ImdbTechSpecs', ItemList);  //Ivek23 CustomField ~ImdbTechSpecs~ for ~features~
						AddFieldValueXML('features', ItemList);
						LogMessage('Function ParsePage_IMDBMovieBASE -  Get result ~features~:|' + ItemList + '||');
					End;  //If (Length(ItemList) > 0) Then Begin should end here
					//*)
				End;  //If Not (TechnicalPageDownloaded) Then Begin should end here
			End;  //If Not (TechnicalPageDownloaded) Then Begin should end here - YES, IT'S AGAIN!
		End;  //If GET_MINI_FEATURES Then Begin should end here

		//Go to "Soundtracks" (CF~MiniSoundtracks~) Needs to be here because  GET_MINI_FEATURES is needed to be False in order full TechSpecs to be downloaded by Technical Function, While this  (CF~MiniSoundtracks~) is found only in main page, since soundtrack now has separate -soundtrack page on IMDb
		StartPos := Pos('Soundtracks</a>', HTML);
		If StartPos>0 Then Begin
			ItemValue := HTMLValue(HTML, StartPos, 0, '<span class="soundtrack-', '</div>');
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Soundtracks1:|' + #13#10 + ItemValue + '||' + #13#10);
			ItemValue := StringReplace(ItemValue, '?ref_=tt_trv_snd', '', True, False, True);
			ItemValue := StringReplace(ItemValue, 'trackname">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '</span>', #13#10, True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-1">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-2">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-3">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-4">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-5">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-6">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-7">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-8">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<span class="soundtrack-comment-9">', '', True, False, True);
			ItemValue := StringReplace(ItemValue, '<a class="ipc-md-link ipc-md-link--entity" href="', '<link url="https://www.imdb.com', True, False, True);
			ItemValue := StringReplace(ItemValue, '</a>', '</link>', True, False, True);
			ItemValue := StringReplace(ItemValue, '?ref_=tt_dyk_snd', '', True, False, True);
			AddCustomFieldValueByName('MiniSoundtracks', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Soundtracks (CF~MiniSoundtracks~):|' + #13#10 + ItemValue + #13#10);
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieBASE - (CF~MiniSoundtracks~) not found');
		End;  //If StartPos>0 Then Begin should end here

		//(*
		//Go to "Connections" (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~)
		//Initialize the string to collect all entries
		allItemValues := '';

		StartPos := Pos('>Connections<', HTML);
		If StartPos > 0 Then Begin
			//Define the end marker for the "Connections" section
			endPos := PosFrom('a class="ipc-metadata-list-item__icon-link" tabindex="0" aria-label="See more" ', HTML, StartPos);
			If endPos > StartPos Then Begin
				//Extract the relevant HTML section
				ItemValue := Copy(HTML, StartPos, endPos - StartPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) :|' + #13#10 + ItemValue + '||' + #13#10);

				//Initialize connections container
				Connections := '';

				//Define connection types
				connectionTypes := ['Featured in', 'Follows', 'Followed by', 'Referenced in', 'Remade as', 'Remake of', 'Spin-off', 'Spoofed in', 'Edited into', 'Edited from', 'Version of', 'Features', 'References', 'Spoofs', 'Spin-off from'];

				//Iterate through each type of connection using an indexed loop
				For i := Low(connectionTypes) To High(connectionTypes) Do Begin
					connType := connectionTypes[i];
					connStartPos := PosFrom(connType, ItemValue, 1);
					While connStartPos > 0 Do Begin
						connendPos := PosFrom('</a>', ItemValue, connStartPos) + Length('</a>') - 1;
						If connendPos > connStartPos Then Begin
							connHTML := Copy(ItemValue, connStartPos, connendPos - connStartPos + 1);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result connHTML for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) :|' + connHTML + '||');

							//Extract the link URL
							linkStartPos := PosFrom(' href="', connHTML, 1) + Length(' href="');
							linkendPos := PosFrom('?ref', connHTML, linkStartPos);
							linkURL := Copy(connHTML, linkStartPos, linkendPos - linkStartPos);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result linkURL for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) :|' + linkURL + '||');

							//Extract the link text
							textStartPos := PosFrom('">', connHTML, linkStartPos) + Length('">');
							textendPos := PosFrom('</a', connHTML, textStartPos);
							yearStartPos := PosFrom('</a>', ItemValue, textStartPos) + Length('</a>');
							yearendPos := PosFrom('</div>', ItemValue, yearStartPos);
							yearValue := Copy(ItemValue, yearStartPos, yearendPos - yearStartPos);
							linkText := Copy(connHTML, textStartPos, textendPos - textStartPos);
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result linkText for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~):|' + linkText + '||');
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result yearValue for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~):|' + yearValue + '||');

							//Build the custom format
							connHTML := connType + ' <link url="https://www.imdb.com' + linkURL + '">' + linkText + yearValue + '</link>';
							LogMessage('Function ParsePage_IMDBMovieBASE - Get result final connHTML for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) :|' + connHTML + '||');

							//Append to connections container
							If Length(Connections) > 0 Then
								Connections := Connections + ', ' + connHTML
							Else
								Connections := connHTML;
						End;  //If connendPos > connStartPos Then Begin should end here
						connStartPos := PosFrom(connType, ItemValue, connStartPos + Length(connHTML));
					End;  //While connStartPos > 0 Do Begin should end here
				End;  //For i := Low(connectionTypes) To High(connectionTypes) Do Begin should end here

				LogMessage('Function ParsePage_IMDBMovieBASE - Final processed Connections:|' + Connections + '||' + #13#10);

				//Add custom field values
				AddCustomFieldValueByName('Conect', Connections);
				AddCustomFieldValueByName('MiniConnections', Connections);

				//Add condition to check "Followed By" presence and add custom field value
				If PosFrom('Followed By', Connections, 1) > 0 Then AddCustomFieldValueByName(FOLLOWEDBY_FIELD, '-1');

				If Not (MovieConnectionsPageDownloaded) Then //AddCustomFieldValueByName('Connect', HTMLValues2(HTML, '>Connections<', '"See more"', '<div class="ipc-html-content-inner-div" role="presentation">', '<a class=', '', StartPos) + ' (from the Main page)');
				LogMessage('Function ParsePage_IMDBMovieBASE - Final processed Connections:|' + HTMLValues2(HTML, '>Connections<', '"See more"', '<div class="ipc-html-content-inner-div" role="presentation">', '<a class=', '', StartPos) + ' (from the Main page)');
			End;  //If endPos > StartPos Then Begin should end here
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieBASE - (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) not found');
		End;  //If StartPos > 0 Then Begin should end here - StartPos := Pos('>Connections<', HTML);
		//*)

		//=== Get User Reviews (Formatted) === (CF~AI Reviews Summary~) and "AI-generated User Reviews Summary (Old "User Comments" Duplicate):" caption in my skin
		curPos := Pos('<section data-testid="UserReviews"', HTML);
		If curPos > 0 Then Begin

			//--- Extract AI-generated Summary (optional) ---
			curPos := PosFrom('>Summary<', HTML, curPos);
			If curPos > 0 Then Begin
				curPos := PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos);
				If curPos > 0 Then Begin
					curPos := curPos + Length('<div class="ipc-html-content-inner-div" role="presentation">');
					endPos := PosFrom('</div></div><span class="AIReviewSummary', HTML, curPos);
					If endPos > curPos Then Begin
						ItemValue := Copy(HTML, curPos, endPos - curPos);
						ItemValue := Trim(ItemValue);
						AddCustomFieldValueByName('AI Reviews Summary', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result final AI-generated Summary for (CF~AI Reviews Summary~):|' + ItemValue + '||');
						curPos := endPos;
					End;  //If endPos > curPos Then Begin should end here
				End;  //If curPos > 0 Then Begin should end here - curPos := PosFrom('<div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos);
			End;  //If curPos > 0 Then Begin - curPos := PosFrom('>Summary<', HTML, curPos);

			//--- Loop through Featured Reviews ---
			localPos := 1
			LogMessage('Function ParsePage_IMDBMovieBASE - curPos before >Featured reviews<:|' + IntToStr(curPos) + '||');
			curPos := PosFrom('>Featured reviews<', HTML, localPos);
			If curPos > 0 Then Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - curPos after >Featured reviews< via localPos:|' + IntToStr(curPos) + '||');
				endPos := PosFrom('</section>', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos looking for </section>:|' + IntToStr(endPos) + '||');
				ReviewContent := Copy(HTML, curPos, endPos - curPos);
				ReviewContent := StringReplace(ReviewContent, '', '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, #$96, '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, 'Β', '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, '–', '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, 'Β–', '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, #$A0, '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, #$97, '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, #150, '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, '–', '', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, 'Β ', ' ', True, True, False);  //Strange characters can be found on IMDb pages that crashes app
				ReviewContent := StringReplace(ReviewContent, '–', '-', True, True, False);
				ReviewContent := StringReplace(ReviewContent, 'β€”', '-', True, True, False);
				ReviewContent := StringReplace(ReviewContent, 'β€˜', '''', True, True, False);
				ReviewContent := StringReplace(ReviewContent, '’', '''', True, True, False);
				ReviewContent := StringReplace(ReviewContent, 'β€œ', '"', True, True, False);
				ReviewContent := StringReplace(ReviewContent, 'β€?', '"', True, True, False);
				ReviewContent := StringReplace(ReviewContent, 'Β ', ' ', True, True, False);

				For i := 1 to Length(ReviewContent) Do
					If Ord(ReviewContent[i]) >= $80 Then ReviewContent[i] := ' ';

				AllReviews := '';
				localPos := 1;
				While True Do Begin
					cardStart := PosFrom('<div class="ipc-lockup-overlay"><div class="ipc-lockup-overlay__screen">', ReviewContent, localPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - cardStart :|' + IntToStr(cardStart) + '||');
					If cardStart = 0 Then Break;

					nextStart := PosFrom('<div class="ipc-lockup-overlay"><div class="ipc-lockup-overlay__screen">', ReviewContent, cardStart + 1);
					If nextStart > 0 Then
						cardEnd := nextStart
					Else
						cardEnd := Length(ReviewContent) + 1;

					cardHTML := Copy(ReviewContent, cardStart, cardEnd - cardStart);

					tmpPos := 1;
					ReviewRating := TextBetween(cardHTML, '<span class="ipc-rating-star--rating">', '</span>', False, tmpPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReviewRating (CF~User Reviews~):|' + ReviewRating + '||');

					tmpPos := 1;
					ReviewAuthor := TextBetween(cardHTML, 'hidden text-ellipsis whitespace-nowrap">', '</a>', False, tmpPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReviewAuthor (CF~User Reviews~):|' + ReviewAuthor + '||');

					tmpPos := 1;
					ReviewTitle := TextBetween(cardHTML, '<h4 class="ipc-title__text">', '</h4>', False, tmpPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReviewTitle (CF~User Reviews~):|' + ReviewTitle + '||');

					tmpPos := 1;
					ReviewBody := TextBetween(cardHTML, '<div class="ipc-html-content-inner-div" role="presentation">', '</div>', True, tmpPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReviewBody (CF~User Reviews~):|' + ReviewBody + '||');

					If ReviewRating <> '' Then Begin

						FullReview := Trim(ReviewTitle) + #13#10#13#10 + Trim(ReviewBody) + #13#10 + '-----' + #13#10 + 'by ' + Trim(ReviewAuthor) + #13#10 + 'Author rating is ' + Trim(ReviewRating);
					End Else Begin
						FullReview := Trim(ReviewTitle) + #13#10#13#10 + Trim(ReviewBody) + #13#10 + '-----' + #13#10 + 'by ' + Trim(ReviewAuthor) + #13#10 + 'Author left no rating';
					End;  //If ReviewRating <> '' Then Begin should end here

					LogMessage('Function ParsePage_IMDBMovieBASE - Get result FullReview for (CF~User Reviews~):|' + FullReview + '||');

					//Accumulate into AllReviews
					If AllReviews <> '' Then AllReviews := AllReviews + #13#10 + #13#10 + '==========' + #13#10;
					AllReviews := AllReviews + FullReview;
					LogMessage('Function ParsePage_IMDBMovieBASE - Get result AllReviews for (CF~User Reviews~):|' + AllReviews + '||');

					localPos := cardEnd;
				End;  //While True Do Begin should end here

				//Store once at the end
				If AllReviews <> '' Then AddCustomFieldValueByName('User Reviews', AllReviews);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result FINAL AllReviews for (CF~User Reviews~):|' + AllReviews + '||');
			End;  //If curPos > 0 Then Begin Then Begin for >Featured reviews< should end here
		End;  //If curPos > 0 Then Begin should end here - curPos := Pos('<section data-testid="UserReviews"', HTML);

		If Not (ReferencePageDownloaded) Then Begin
			//Underlinked
			//Get "Reviews" Summary (CF~IMDb_Reviews_Summary~) - "IMDb Reviews Summary:" caption in my skin
			LogMessage('Function ParsePage_IMDBMovieBASE - Value of ReferencePageDownloaded:|' + BoolToStr(ReferencePageDownloaded));
			curPos := Pos('"reviewContent-all-reviews"', HTML);  //WEB_SPECIFIC
			LogMessage('Function ParsePage_IMDBMovieBASE - curPos after Pos for (CF~IMDb_Reviews_Summary~):|' + IntToStr(curPos));

			If 0 < curPos Then Begin
				endPos := PosFrom('>See production info at IMDbPro<', HTML, curPos);  //End of the reviews section
				LogMessage('Function ParsePage_IMDBMovieBASE - endPos after PosFrom for (CF~IMDb_Reviews_Summary~):|' + IntToStr(endPos));
				If endPos > 0 Then Begin
					//Extract the HTML within the reviews section
					endPos := endPos + Length('>See production info at IMDbPro<');
					LogMessage('Function ParsePage_IMDBMovieBASE - endPos after adding length:|' + IntToStr(endPos));
					ReviewsSection := Copy(HTML, curPos, endPos - curPos);
					LogMessage('Function ParsePage_IMDBMovieBASE - Value of ReviewsSection for (CF~IMDb_Reviews_Summary~):|' + ReviewsSection);

					//Find and process the first review link
					If (Pos('>User reviews<', HTML) > 0) And (Pos('>Be the first to review', HTML) = 0) Then Begin
						subPos := Pos('<a ', ReviewsSection);
						LogMessage('Function ParsePage_IMDBMovieBASE - subPos first <a  for (CF~IMDb_Reviews_Summary~):|' + IntToStr(subPos));
						If subPos > 0 Then Begin
							subEnd := PosFrom(' href="', ReviewsSection, subPos);
							LogMessage('Function ParsePage_IMDBMovieBASE - subEnd first href attr:|' + IntToStr(subEnd));
							If subEnd > 0 Then Begin
								subEnd := subEnd + Length(' href="');
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd after adding length:|' + IntToStr(subEnd));
								//Extract href value
								subPos := subEnd;
								subEnd := PosFrom('"', ReviewsSection, subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd closing quote user:|' + IntToStr(subEnd));
								UserReviewURL := Copy(ReviewsSection, subPos, subEnd - subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewURL raw for (CF~IMDb_Reviews_Summary~):|' + UserReviewURL);
								//Strip ?ref_=… if present
								If Pos('?', UserReviewURL) > 0 Then Begin
									UserReviewURL := Copy(UserReviewURL, 1, Pos('?', UserReviewURL) - 1);
									LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewURL stripped for (CF~IMDb_Reviews_Summary~):|' + UserReviewURL);
								End;  //If Pos('?', UserReviewURL) > 0 Then Begin should end here
								//Extract the score text
								subPos := PosFrom('<span class="score">', ReviewsSection, subEnd) + Length('<span class="score">');
								LogMessage('Function ParsePage_IMDBMovieBASE - subPos score user for (CF~IMDb_Reviews_Summary~):|' + IntToStr(subPos));
								subEnd := PosFrom('</span>', ReviewsSection, subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd score user:|' + IntToStr(subEnd));
								UserReviewText := Copy(ReviewsSection, subPos, subEnd - subPos) + ' User reviews';
								LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewText:|' + UserReviewText);
								UserReviewLink := '<link url="https://www.imdb.com' + UserReviewURL + '">' + UserReviewText + '</link>';
								LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewLink:|' + UserReviewLink);
							End;  //If subEnd > 0 Then Begin should end here
						End;  //If subPos > 0 Then Begin should end here
					End;  //If (Pos('>User reviews<', HTML)) > 0 Then Begin should end here

					//Find and process the second review link
					If (Pos('>Critic reviews<', HTML)) > 0 Then Begin
						subPos := PosFrom('<a ', ReviewsSection, subEnd);
						LogMessage('Function ParsePage_IMDBMovieBASE - subPos second <a :|' + IntToStr(subPos));
						If subPos > 0 Then Begin
							subEnd := PosFrom(' href="', ReviewsSection, subPos);
							LogMessage('Function ParsePage_IMDBMovieBASE - subEnd second href attr:|' + IntToStr(subEnd));
							If subEnd > 0 Then Begin
								subEnd := subEnd + Length(' href="');
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd after adding length (critic):|' + IntToStr(subEnd));
								//Extract href value
								subPos := subEnd;
								subEnd := PosFrom('"', ReviewsSection, subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd closing quote critic:|' + IntToStr(subEnd));
								CriticReviewURL := Copy(ReviewsSection, subPos, subEnd - subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewURL raw:|' + CriticReviewURL);
								//Strip ?ref_=… if present
								If Pos('?', CriticReviewURL) > 0 Then Begin
									CriticReviewURL := Copy(CriticReviewURL, 1, Pos('?', CriticReviewURL) - 1);
									LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewURL stripped:|' + CriticReviewURL);
								End;  //If Pos('?', CriticReviewURL) > 0 Then Begin should end here
								//Extract the score text
								subPos := PosFrom('<span class="score">', ReviewsSection, subEnd) + Length('<span class="score">');
								LogMessage('Function ParsePage_IMDBMovieBASE - subPos score critic:|' + IntToStr(subPos));
								subEnd := PosFrom('</span>', ReviewsSection, subPos);
								LogMessage('Function ParsePage_IMDBMovieBASE - subEnd score critic:|' + IntToStr(subEnd));
								CriticReviewText := Copy(ReviewsSection, subPos, subEnd - subPos) + ' Critic reviews';
								LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewText:|' + CriticReviewText);
								CriticReviewLink := '<link url="https://www.imdb.com' + CriticReviewURL + '">' + CriticReviewText + '</link>';
								LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewLink:|' + CriticReviewLink);
							End;  //If subEnd > 0 Then Begin should end here
						End;  //If subPos > 0 Then Begin should end here
					End;  //If (Pos('>Critic reviews<', HTML)) > 0 Then Begin should end hee

					//Combine the results//Handle all cases for UserReviewLink and CriticReviewLink
					If (UserReviewLink <> '') Or (CriticReviewLink <> '') Then Begin
						LogMessage('Function ParsePage_IMDBMovieBASE - At least one link found for (CF~IMDb_Reviews_Summary~)');
						If UserReviewLink <> '' Then Begin
							LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewLink non-empty');
							If CriticReviewLink <> '' Then Begin
								LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewLink also non-empty for (CF~IMDb_Reviews_Summary~)');
								//Both links are non-empty
								ItemValue220 := UserReviewLink + ' and ' + CriticReviewLink;
							End Else Begin
								LogMessage('Function ParsePage_IMDBMovieBASE - CriticReviewLink empty for (CF~IMDb_Reviews_Summary~)');
								//Only UserReviewLink is non-empty
								ItemValue220 := UserReviewLink;
							End;  //If CriticReviewLink <> '' Then Begin should end here
						End Else Begin
							LogMessage('Function ParsePage_IMDBMovieBASE - UserReviewLink empty, using CriticReviewLink for (CF~IMDb_Reviews_Summary~)');
							//Only CriticReviewLink is non-empty
							ItemValue220 := CriticReviewLink;
						End;  //If UserReviewLink <> '' Then Begin should end here
						//Add field and log the result
						AddCustomFieldValueByName('IMDb_Reviews_Summary', ItemValue220);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~IMDb_Reviews_Summary~):|' + ItemValue220 + '||');
					End Else Begin
						//Both links are empty
						ItemValue220 := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - No links available for IMDb_Reviews_Summary.');
					End;  //If (UserReviewLink <> '') Or (CriticReviewLink <> '') Then Begin should end here
				End;  //If endPos > 0 Then Begin should end here
			End;  //If 0 < curPos Then Begin should end ere
		End;  //If Not (ReferencePageDownloaded) should ends here

		//(*
		If Not (ReferencePageDownloaded) And Not (AwardsPageDownloaded) Then Begin
			//Get "Awards" Summary as (CF~IMDbAwards1~)
			curPos := Pos('aria-label="See more awards and nominations"', HTML);  //Adjusted to match the provided HTML
			If 0 < curPos Then Begin
				//Find the next span that contains the detailed awards summary information and adjust curPos
				curPos := PosFrom('<span class="ipc-metadata-list-item__list-content-item', HTML, curPos) + Length('<span class="ipc-metadata-list-item__list-content-item');
				endPos := PosFrom('/span>', HTML, curPos);
				ItemValue := Copy(HTML, curPos, endPos - curPos);
				ItemValue := TextBetweenFirst(ItemValue, '">', '<');
				ItemValue := StringReplace(ItemValue, ' total', '', True, True, False);

				AddCustomFieldValueByName('IMDbAwards1', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~IMDbAwards1~) Awards Summary:|' + ItemValue + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) And Not (AwardsPageDownloaded) Then Begin should end here
		//*)

		//{*
		If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin

			//E P I S O D E    L I S T
			//(*
			ScriptPath := GetAppPath + 'Scripts\';
			EpisodeListFile := ScriptPath + 'Tmp\IMDb_Episode_List.txt';
			IMDBSeasonsURL := MovieURL + 'episodes/';
			If ((ConfigOptions[27] = '0') Or (Not DOWNLOAD_EPISODES_LIST) Or ((SeasonsNumber = '0') And (EpisodesNumber = '0'))) Then Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - This is not a Series, or no season or episode exists|');
				EpisodeListDownloaded := False;
				//Exit;
			End Else If (SeasonsNumber = '0') Then Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - Season 0 detected, continuing processing|');
				//Allow processing for Season 0 to continue
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieBASE - Download attempt with Selenium in file:|' + EpisodeListFile + ' the information of the Episodes List for:|' + IMDBSeasonsURL + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - Executing Python script to download URL content.');
				FileExecute('pythonw.exe', '"' + ScriptPath + 'Selenium_Chrome_IMDB_Episode_List_page_v4.py" "' + IMDBSeasonsURL + '"');
				LogMessage('Function ParsePage_IMDBMovieBASE - Downloaded with Selenium in file:|' + EpisodeListFile + ' the information of the Episodes List for:|' + IMDBSeasonsURL + '||');
				//(*
				//Wait for the Selenium download to finish.
				i := 0;  //INTERNET_TEST_ITERATIONS
				While Not (FileExists(EpisodeListFile)) Do Begin
					LogMessage('Function ParsePage_IMDBMovieBASE - Waiting 30s for the presence of the Episodes List:|' + EpisodeListFile);
					Wait (30000);
				//*)
					//(*
					i := i + 1;
					If i = INTERNET_TEST_ITERATIONS Then Begin
						case MessageBox('IMDb Movie Function DownloadPage - Too many faulty attempts to internet connection for Episode List. Cancel, Retry, or Continue (Ignore)? NOTE: IF YOU PRESS IGNORE YOU WILL NOT GET EPISODE LIST, SO CONSIDER TO RETRY OR TO CANCEL AND START DOWNLOAD AGAIN! IMDb really makes it harder and harder to get the data.', SCRIPT_FILE_NAME, 2) of
							3:  //Abort -> treat as Cancel
							Begin
								LogMessage('Function ParsePage_IMDBMovieBASE ENDED for the Episodes List with NO INTERNET connection===============|');
								Result := prError;
								Exit;
							End;  //Begin 3: //Abort -> treat as Cancel should end here
							4:  //Retry
							Begin
								i := 0;
								currentWait := 2000;  //Reset to initial wait time
							End;  //Begin 4: //Retry should end here
							5:  //Ignore->create empty IMDb_Episode_List.txt file and continue
							Begin
								LogMessage('Creating empty IMDb_Episode_List.txt file due to Ignore selection...');
								with TStringList.Create Do Begin
									try
										SaveToFile(FilePath + 'IMDb_Episode_List.txt');
									finally
										Free;
									End;  //try-finally should end here
								End;  //with TStringList.Create Do should end here
								EpisodeListFullPath := FilePath + EpisodeListFile;
								Result := prFinished;
							End;  //Begin 5: //Ignore -> create dummy file should end here
						End;  //case MessageBox... of should end here
					End;  //If i = INTERNET_TEST_ITERATIONS Then Begin should end here
					//*)
				//(*
				End;  //While Not (FileExists(EpisodeListFile)) Do Begin should end here
				//*)
				LogMessage('Function ParsePage_IMDBMovieBASE - Complete Episodes List file that is now present:|' + EpisodeListFile);
				WebText := FileToString(EpisodeListFile);
				WebText := ConvertEncoding(WebText, 65001);  //65001 utf-8 Unicode (UTF-8) ---> https://learn.microsoft.com/en-us/windows/win32/intl/code-page-identifiers
				LogMessage('Function ParsePage_IMDBMovieBASE - WebText (EpisodeListFile)|' + WebText + '|');  //Debug statement
				//Result := WebText;
				EpisodeListDownloaded := True;
				LogMessage('Function ParsePage_IMDBMovieBASE - Value of EpisodeListDownloaded:|' + BoolToStr(EpisodeListDownloaded));

				//From here on continue importing seasons
				//Parse the downloaded Episode List and process seasons dynamically
				If EpisodeListDownloaded Then Begin
					LogMessage('Function ParsePage_IMDBMovieBASE - Parsing Episode List file...');

					//Split WebText into individual lines (episodes)
					EpisodesNumberInt := ExplodeString(WebText, EpisodeLines, #13#10);
					LogMessage('Function ParsePage_IMDBMovieBASE - Number of episodes found:|' + IntToStr(EpisodesNumberInt));

					//Loop through each episode line
					For i := 0 To EpisodesNumberInt - 1 Do Begin
						Line := EpisodeLines[i];
						LogMessage('Function ParsePage_IMDBMovieBASE - Processing Episode line:|' + Line);

						//**1st Segment: Season and Episode**
						If (Pos('[[S', Line) = 1) And (Pos('.', Line) > 0) And (Pos('E', Line) > Pos('.', Line)) Then Begin
							Season := Copy(Line, Pos('S', Line) + 1, Pos('.', Line) - Pos('S', Line) - 1);  //Extract Season
							Episode := Copy(Line, Pos('E', Line) + 1, Pos(']]', Line) - Pos('E', Line) - 1);  //Extract Episode
						End Else Begin
							Season := '';
							Episode := '';
						End;  //If (Pos('[[S', Line) = 1) And (Pos('.', Line) > 0) And (Pos('E', Line) > Pos('.', Line)) Then Begin should end here
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted Season:|' + Season);
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted Episode:|' + Episode);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**2nd Segment: Episode Title**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) Then
							epTitle := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epTitle := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epTitle:|' + epTitle);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**3rd Segment: IMDb URL**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos('imdb.com', Line) > 0) Then
							epURL := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epURL := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epURL:|' + epURL);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**4th Segment: Air Date**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos(',', Line) > 0) Then Begin
							epAiredDate := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2);
							If Length(epAiredDate) >= 4 Then
								epYear := Copy(epAiredDate, Length(epAiredDate) - 3, 4) //Extract Year
							Else
								epYear := '';
						End Else Begin
							epAiredDate := '';
							epYear := '';
						End;  //If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos(',', Line) > 0) Then Begin should end here //**4th Segment: Air Date**
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epAiredDate:|' + epAiredDate);
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epYear:|' + epYear);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**5th Segment: Plot Description**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) Then
							epPlot := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epPlot := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epPlot:|' + epPlot);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**6th Segment: IMDb Rating**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos('.', Line) > 0) Then
							epRating := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epRating := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epRating:|' + epRating);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**7th Segment: Votes**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos('.', Line) = 0) Then
							epVotes := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epVotes := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epVotes:|' + epVotes);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//**8th Segment: Image URL**
						If (Pos('[[', Line) > 0) And (Pos(']]', Line) > 0) And (Pos('amazon.com', Line) > 0) Then
							epImageURL := Copy(Line, Pos('[[', Line) + 2, Pos(']]', Line) - Pos('[[', Line) - 2)
						Else
							epImageURL := '';
						LogMessage('Function ParsePage_IMDBMovieBASE - Extracted epImageURL:|' + epImageURL);
						Delete(Line, 1, Pos(']]', Line) + 3);  //Remove extracted segment

						//Add parsed fields
						//AddFieldValueXML('title', epTitle);
						//AddFieldValueXML('url', epURL);
						//AddCustomFieldValueByName('IMDB_Aired_Date', epAiredDate);
						//AddFieldValueXML('year', epYear);
						//AddCustomFieldValueByName('IMDB_Year', epYear);  //Add the extracted year
						//AddFieldValueXML('description', epPlot);
						//AddFieldValueXML('imdbrating', epRating);
						//AddCustomFieldValueByName('IMDB_Votes', epVotes);

						(*
						//Handle poster image
						If Length(epImageURL) > 0 Then Begin
							epImageFile := ScriptPath + 'Tmp\' + ExtractFileName(epImageURL);
							If DownloadImage(epImageURL, epImageFile) = 1 Then Begin
								AddImageURL(itPoster, epImageFile);
								LogMessage('Function ParsePage_IMDBMovieBASE - epPoster added:|' + epImageFile);
							End;  //If DownloadImage(epImageURL, epImageFile) = 1 Then Begin should end here
						End;  //If Length(epImageURL) > 0 Then Begin should end here
						//*)

						//Handle the "unknown" season case
						If Season = '0' Then Begin
							//Explicitly add the episode with Season as '0'
							AddEpisode(epTitle, epTitle, epPlot, epURL, epYear, '0', Episode);
							LogMessage('Function ParsePage_IMDBMovieBASE - Added episode in Season 0:|' + epTitle);
						End Else Begin
							//Normal processing for identified seasons
							AddEpisode(epTitle, epTitle, epPlot, epURL, epYear, Season, Episode);
							LogMessage('Function ParsePage_IMDBMovieBASE - Added episode in Season ' + Season + ':|' + epTitle);
						End;  //If Season = '0' Then Begin should end here
					End;  //For i := 0 To EpisodesNumberInt - 1 Do Begin should end here
				End;  //If EpisodeListDownloaded Then Begin should end here
			End;  //If ((ConfigOptions[27] = '0') Or ((SeasonsNumber = '0') And (EpisodesNumber = '0'))) Then Begin should end here
		End;  //E P I S O D E    L I S T    ends here - //If ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin should end here
		//*)

	End Else Begin //Full Base function branch ends here and UPDATE_DYNAMIC_VALUES_ONLY Begins

		//===========================
		//STANDALONE: IMDB_VOTES
		//===========================
		ItemValue := TextBetWeenFirst(HTML, '","ratingCount":', ',"');
		AddCustomFieldValueByName('IMDB_Votes', ItemValue);
		AddCustomFieldValueByName('IMDB Votes', ItemValue);
		AddCustomFieldValueByName('IMDB Votes:', ItemValue);

		LogMessage('Function ParsePage_IMDBMovieBASE - Get result ratingCount (CF~IMDB_Votes~):|' + ItemValue + '||');

		//===========================
		//STANDALONE: IMDB RATING
		//===========================

		ItemValue := TextBetWeenFirst(HTML, '"worstRating":1,"ratingValue":', '},"');

		AddFieldValueXML('imdbrating', ItemValue);
		AddCustomFieldValueByName('IMDB Rating', ItemValue);
		AddCustomFieldValueByName('IMDBRating', ItemValue);

		LogMessage('Function ParsePage_IMDBMovieBASE - Get result ratingValue ~imdbrating~ (CF~IMDB Rating~~IMDBRating~):|' + ItemValue + '||');

		//===========================
		//STANDALONE: TOP 250 / TOP 250TV
		//===========================

		//This is needed when Top 250 was present and TOP_250_Last wasn't, and it was possible so when TOP_250_Last was introduced after the film was in the list and imported in PVD being in the list, but TOP_250_Last was updated at the time title wasn't anymore in the list, so TOP_250_Last actually preserved its previous state, which was initially "empty"....

		If (GetCustomFieldValueByName('TOP_250TV') = '') Or (GetCustomFieldValueByName('TOP_250TV') = '0') Then Begin
			LastKnownTop250TV := GetCustomFieldValueByName('TOP_250TV_Last');
			AddCustomFieldValueByName('TOP_250TV_Last', LastKnownTop250TV);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250TV is empty, so added previous TOP_250TV_Last to (CF~TOP_250TV_Last~) before updating field online:|' + LastKnownTop250TV + '||');
		End Else Begin
			LastKnownTop250TV := GetCustomFieldValueByName('TOP_250TV');
			AddCustomFieldValueByName('TOP_250TV_Last', LastKnownTop250TV);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250TV is NOT empty, so added previous TOP_250TV to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250TV + '||');
		End;  //If (GetCustomFieldValueByName('TOP_250TV') = '') Or (GetCustomFieldValueByName('TOP_250TV') = '0') Then Begin should end here

		If (GetCustomFieldValueByName('TOP_250') = '') Or (GetCustomFieldValueByName('TOP_250') = '0') Then Begin
			LastKnownTop250 := GetCustomFieldValueByName('TOP_250_Last');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250 is empty, so added previous TOP_250_Last to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End Else Begin
			LastKnownTop250 := GetCustomFieldValueByName('TOP_250');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - TOP_250 is NOT empty, so added previous TOP_250 to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End;  //If (GetCustomFieldValueByName('TOP_250') = '') Or (GetCustomFieldValueByName('TOP_250') = '0') Then Begin should end here


		If (LastKnownTop250 = '') Or (LastKnownTop250 = '0') Then Begin
			LastKnownTop250 := GetCustomFieldValueByName('Top 250:');
			LogMessage('Function ParsePage_IMDBMovieBASE - Top 250: adding finally to (CF~TOP_250_Last~) before updating field online when all others were empty:|' + LastKnownTop250 + '||');
			AddCustomFieldValueByName('TOP_250_Last', LastKnownTop250);
			LogMessage('Function ParsePage_IMDBMovieBASE - Last known value of Top 250: added to (CF~TOP_250_Last~) before updating field online:|' + LastKnownTop250 + '||');
		End;  //If (LastKnownTop250 = '') Or (LastKnownTop250 = '0') Then Begin should end here

		PreviousTop250 := '';
		AddCustomFieldValueByName('TOP_250', PreviousTop250);
		LogMessage('Function ParsePage_IMDBMovieBASE - clearing TOP_250 before checking online:|' + PreviousTop250 + '||');
		AddCustomFieldValueByName('Top 250:', PreviousTop250);
		LogMessage('Function ParsePage_IMDBMovieBASE - clearing TOP_250 before checking online:|' + PreviousTop250 + '||');

		//Now checking online
		curPos := Pos('data-testid="award_top-rated" href="/chart/top', HTML);
		LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')

		//Outter tags
		If curPos <> 0 Then Begin
			curPos := PosFrom('>Top rated ', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result >Top rated for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')
			curPos := PosFrom('#', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result # for ItemValue for Top 250-s before entering tree:|' + IntToStr(curPos) + '||')

			If curPos > 0 Then Begin
				ItemValue := TextBetWeen(HTML, '#', '</a>', False, curPos);
				LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for Top 250-s before entering tree:|' + ItemValue + '||')


				If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
					//Inner tags + Series
					//Inner tags + Series + ItemValue <> ''
					If ItemValue <> '' Then Begin
						AddCustomFieldValueByName('TOP_250TV', ItemValue);
						AddCustomFieldValueByName('TOP_250TV_Last', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~TOP_250TV~) And (CF~TOP_250TV_Last~):|' + ItemValue + '||');
					End Else Begin
						//Inner tags + Series  + ItemValue = ''
						AddCustomFieldValueByName('TOP_250TV', '0');
						LogMessage('Function ParsePage_IMDBMovieBASE - TV tag present but no rank; set TOP_250TV="", preserved TOP_250TV_Last as.' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250TV_Last'), -1)));
					End;  //If ItemValue <> '' Then Begin - Inner tags + Series + ItemValue ends here
				End Else Begin
					//Inner tags + Movies + ItemValue
					//Inner tags + Movies+ItemValue <> ''
					If ItemValue <> '' Then Begin
						AddCustomFieldValueByName('TOP_250', ItemValue);
						AddCustomFieldValueByName('Top 250:', ItemValue);
						AddCustomFieldValueByName('TOP_250_Last', ItemValue);
						LogMessage('Function ParsePage_IMDBMovieBASE - Get result (CF~TOP_250~), (CF~Top 250:~), And (CF~TOP_250_Last~):|' + ItemValue + '||');
					End Else Begin
						//Inner tags + Movies + ItemValue = ''
						AddCustomFieldValueByName('TOP_250', '0');
						AddCustomFieldValueByName('Top 250:', '0');
						LogMessage('Function ParsePage_IMDBMovieBASE - Movie tag present but no rank; set TOP_250/Top 250:="", preserved TOP_250_Last is.' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250_Last'), -1)));
					End;  //If ItemValue <> '' Then Begin - Inner tags + Movies + ItemValue ends here
				End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begins Inner tags+ Movies ends here
			End Else Begin //No inner tags
				If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
					//Series + no inner tags
					AddCustomFieldValueByName('TOP_250TV', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250TV;  set it o ""; but maybe the title is still in top 250. Check title page on .' + IntToStr(StrToInt(GetCustomFieldValueByName('TOP_250TV_Last'))));
				End Else Begin
					//Movies + no inner tags
					AddCustomFieldValueByName('TOP_250', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for TOP_250, set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
					AddCustomFieldValueByName('Top 250:', '0');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250:, set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
					LogMessage('Function ParsePage_IMDBMovieBASE - HTML tags changed for Top 250 movies; so maybe the title is still in top 250. Check title page on IMDb While, preserving TOP_250_Last as: ' +LastKnownTop250);
				End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin - Movies + no inner tags ends here
			End;  //If curPos > 0 Then Begin - No inner tags ends here
		End Else Begin  //No outter tags
			If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
				//Series + no outter tags
				AddCustomFieldValueByName('TOP_250TV', '0');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250TV; set it to ""; but maybe the title is still in top 250. Preserved TOP_250TV_Last as:|' + IntToStr(StrToIntDef(GetCustomFieldValueByName('TOP_250TV_Last'), -1)));
			End Else Begin
				//Movies + no outter tags
				AddCustomFieldValueByName('TOP_250', '0');
				AddCustomFieldValueByName('Top 250:', '0');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for TOP_250; set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250:; set it to ""; but maybe the title is still in top 250. Check title page on IMDb:' + '||');
				LogMessage('Function ParsePage_IMDBMovieBASE - HTML outter tags missing for Top 250 movies; preserving TOP_250_Last as:|' + LastKnownTop250);
			End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin Movies - No outter tags ends here
		End;  //If curPos <> 0 Then Begin - No outter tags ends here
		//*)

		//===========================
		//STANDALONE: METASCORE
		//===========================

		endPos := Pos('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML);
		If endPos > 0 Then Begin
			curPos := PrevPos('">', HTML, endPos) + Length('">');
			endPos := PosFrom('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML, curPos) + 2;
			//ItemValue := RemoveTags(Copy(HTML, curPos, endPos - curPos), False);
			ItemValue := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Metascore original:|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, '0</', '.0', True, False, True);
			ItemValue := StringReplace(ItemValue, '1</', '.1', True, False, True);
			ItemValue := StringReplace(ItemValue, '2</', '.2', True, False, True);
			ItemValue := StringReplace(ItemValue, '3</', '.3', True, False, True);
			ItemValue := StringReplace(ItemValue, '4</', '.4', True, False, True);
			ItemValue := StringReplace(ItemValue, '5</', '.5', True, False, True);
			ItemValue := StringReplace(ItemValue, '6</', '.6', True, False, True);
			ItemValue := StringReplace(ItemValue, '7</', '.7', True, False, True);
			ItemValue := StringReplace(ItemValue, '8</', '.8', True, False, True);
			ItemValue := StringReplace(ItemValue, '9</', '.9', True, False, True);
			If ItemValue <> '' Then AddCustomFieldValueByName('Metascore', FloatToStr((StrToFloat(ItemValue) * 1)));
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result Metascore in PVD format (CF~Metascore~):|' + ItemValue + '||');
		End;  //If endPos > 0 Then Begin should end here

		//===========================
		//STANDALONE: IMDbAwards1 (only if = 2 years old)
		//===========================

		//=== Awards: only update if movie is = 2 years old ===

		//Recreate the date in IUpdated format
		Date := DateToStr(CurrentDateTime);
		ExplodeString(Date, DateParts, '-');

		(*
		//Backup version to get the date
		Date := DateParts[2] + '.' + DateParts[1] + '.' + DateParts[0];

		Date := StringReplace(Date, '01.', '1.', True, True, False);
		Date := StringReplace(Date, '02.', '2.', True, True, False);
		Date := StringReplace(Date, '03.', '3.', True, True, False);
		Date := StringReplace(Date, '04.', '4.', True, True, False);
		Date := StringReplace(Date, '05.', '5.', True, True, False);
		Date := StringReplace(Date, '06.', '6.', True, True, False);
		Date := StringReplace(Date, '07.', '7.', True, True, False);
		Date := StringReplace(Date, '08.', '8.', True, True, False);
		Date := StringReplace(Date, '09.', '9.', True, True, False);

		LogMessage('Formatted date (IUpdated style):|' + Date);

		//Extract year from formatted date (last 4 characters)
		ExtractedYearStr := Copy(Date, Length(Date) - 3, 4);
		LogMessage('Extracted year string:|' + ExtractedYearStr);

		//*)

		//Convert to integer
		//CurrentYear := StrToInt(ExtractedYearStr); backup version to get the date with the snippet above
		CurrentYear := StrToIntDef(DateParts[0], 0);
		LogMessage('Function ParsePage_IMDBMovieBASE -Converted current year (int) CurrentYear:|' + IntToStr(CurrentYear));

		//Extract movie year (first 4 chars)
		AwMovieYearStr := Copy(GetFieldValueXML('year'), 1, 4);
		LogMessage('Function ParsePage_IMDBMovieBASE -Extracted movie year string:|' + AwMovieYearStr);

		If AwMovieYearStr <> '' Then Begin
			AwMovieYear := StrToInt(AwMovieYearStr);
			LogMessage('Function ParsePage_IMDBMovieBASE -Converted movie year (int) AwMovieYear:|' + IntToStr(StrToInt(AwMovieYearStr)));

			If (AwMovieYear > 0) And ((CurrentYear - AwMovieYear) <= 2) Then Begin
				LogMessage('Function ParsePage_IMDBMovieBASE -Movie is within 2-year range. Proceeding to extract awards.');

				curPos := Pos('aria-label="See more awards and nominations"', HTML);
				If curPos > 0 Then Begin
					curPos := PosFrom('<span class="ipc-metadata-list-item__list-content-item', HTML, curPos) + Length('<span class="ipc-metadata-list-item__list-content-item');
					endPos := PosFrom('/span>', HTML, curPos);

					ItemValue := Copy(HTML, curPos, endPos - curPos);
					ItemValue := TextBetweenFirst(ItemValue, '">', '<');
					ItemValue := StringReplace(ItemValue, ' total', '', True, True, False);

					AddCustomFieldValueByName('IMDbAwards1', ItemValue);

					LogMessage('Function ParsePage_IMDBMovieBASE -Awards Summary updated:|' + ItemValue);
				End Else Begin
					LogMessage('Function ParsePage_IMDBMovieBASE -Awards section not found in HTML.');
				End;  //If curPos > 0 Then Begin should end here
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieBASE -Movie is older than 2 years. Skipping awards update.');
			End;  //If (AwMovieYear > 0) And ((CurrentYear - AwMovieYear) <= 2) Then Begin should end here
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieBASE -Movie year string is empty. Skipping awards update.');
		End;  //If AwMovieYearStr <> '' Then Begin should end here
		LogMessage('Function ParsePage_IMDBMovieBASE -Test to find syntax error.');

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	//}
	//Go to "NEXT_DATA"
	//ItemList1 := TextBetWeenFirst(HTML, '<script id="__NEXT_DATA__" type="application/json', '", "caption":{"plainText":"');
	//LogMessage('Function ParsePage_IMDBMovieBASE - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList1:|' + '<script id="__NEXT_DATA__" type="application/json' + ItemList1 + '", "caption":{"plainText":"' + '||'));

	LogMessage('Function ParsePage_IMDBMovieBASE END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieAKA(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: ~aka~ "Also known as"
	//from "downpage-UTF8_NO_BOM-ReleaseInfo.htm" file
	//'scraped url = "https://www.imdb.com/title/tt0147800/releaseinfo/"'

Var
	curPos, endPos, index: Integer;
	//debug_pos1: Integer;
	MoviesID, MoviesID2: String;
	ItemValue, ItemList, ItemValue1: String;
	Category, Name: String;
	ItemArray: TWideArray;
	dateStart, dateEnd, countryStart,  countryEnd, akaStart, akaEnd, subTextStart, subTextEnd: Integer;
	dateValue, countryValue, akaValue, subText, allItemValues: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieAKA BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		LogMessage('Function ParsePage_IMDBMovieAKA: Starting processing.');
		LogMessage('Function ParsePage_IMDBMovieAKA - HTML length:|' + IntToStr(Length(HTML)));
		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//(*
		//Get ~IMDb MoviesID2~
		MoviesID2 := TextBetWeenFirst(DownloadURL, BASE_URL_PRE_TRUE, BASE_URL_SUF);
		LogMessage('Function ParsePage_IMDBMovieAKA - Get result MoviesID2: https://www.imdb.com/title/' + MoviesID2 + '/releaseinfo' + '||');

		//Get "MoviesID" info
		MoviesID := 'https://www.imdb.com' + TextBetWeenFirst(HTML, '<meta property="og:url" content="https://www.imdb.com', '">');
		LogMessage('Function ParsePage_IMDBMovieAKA - Get result MoviesID:|' + MoviesID);
		//*)

		//(*
		//Get "Release info" info
		curPos := Pos('>Release info<', HTML);
		If 0 < curPos Then Begin
			endPos := curPos;
			Category := TextBetween(HTML, '>', '<', True, curPos);
			//LogMessage('Function ParsePage_IMDBMovieAKA - Get result Category:|' + Category + '||');
			Name := TextBetween(HTML, '<label for="jump-to" class="ipc-simple-select__label">', '</select>', True, curPos);
			//LogMessage('Function ParsePage_IMDBMovieAKA - Get result Name:|' + Name + '||');
			Name := StringReplace(Name, 'Jump to', #160#160#9679#160#160, True, False, True);
			Name := StringReplace(Name, ')', ')  ', True, False, True);
			Name := StringReplace(Name, ')   (', ') (', True, False, True);
			//LogMessage('Function ParsePage_IMDBMovieAKA - Get result Name After StringReplace:|' + Name + '||');
			AddCustomFieldValueByName('Release infos', '<link url="' + MoviesID + '">' + Category + '</link>' + Name);
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Release info<', HTML);
		//*)

		//Get ~aka~ (multiple values in a line break separated list) Be careful don't repeat #13#10
		//Note that "For" loop iterates through each element in the ItemArray and checks if it is already present in the ItemValue string. If it's not present, it adds it to ItemValue. only unique AKA values are stored and logged!
		//If (Pos('It looks like we don' + Chr(39) + 't have any AKAs for this title yet.', HTML) > 0) Then Exit;
		//Go to "Also known as"
		curPos := Pos('>Also known as (AKA)<', HTML);  //Strings start which opens the block content data. WEB_SPECIFIC
		//LogMessage('Function ParsePage_IMDBMovieAKA - Get result curPos Also known as (AKA):|' + IntToStr(curPos) + '||');
		If 0 < curPos Then Begin
			endPos := curPos;
			//ItemList := HTMLValues2(HTML, '<h3 class="ipc-title__text"><span id="akas">Also known as (AKA)</span>', '</section>', '<label class="', '</label>', '*', endPos);
			ItemList := HTMLValues2(HTML, '>Also known as (AKA)<', '</section>', '<span class="ipc-metadata-list-item__list-content-item', '</span>', '*', endPos);
			//LogMessage('Function ParsePage_IMDBMovieAKA - Get result ItemList:|' + ItemList);
			ItemValue1 := ItemList;
			ExplodeString(ItemList, ItemArray, '*');ItemValue := '';
			For index := Low(ItemArray) To High(ItemArray) Do Begin
				//LogMessage('Function ParsePage_IMDBMovieAKA - Processing ItemArray[index]:|' + ItemArray[index]);

				//Check if the current item is a descriptor (starts and ends with parentheses)
				If (ItemArray[index][1] = '(') And (ItemArray[index][Length(ItemArray[index])] = ')') Then Begin
					//Combine descriptor with the previous title
					If index > Low(ItemArray) Then Begin
						ItemValue := ItemValue + '<br>' + ItemArray[index - 1] + ' ' + ItemArray[index];
					End;  //If index > Low(ItemArray) Then Begin should end here
				End Else Begin
					//Add standalone title directly
					If (Pos(ItemArray[index], ItemValue) = 0) Then ItemValue := ItemValue + '<br>' + ItemArray[index];
				End;  //If (ItemArray[index][1] = '(') And (ItemArray[index][Length(ItemArray[index])] = ')') Then Begin should end here
			End;  //For index := Low(ItemArray) To High(ItemArray) Do Begin should end here

			//Clean up any leading <br>
			If Copy(ItemValue, 1, 4) = '<br>' Then Delete(ItemValue, 1, 4);

			//Add the final value to XML
			AddFieldValueXML('aka', ItemValue);
			AddCustomFieldValueByName('Imdb Aka', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieAKA - Final combined ItemValue:|' + ItemValue);
		End;  //If 0 < curPos Then Begin should end here

		//Initialize the string to collect all entries
		allItemValues := '';
		//LogMessage('Function ParsePage_IMDBMovieAKA - Starting ParsePage_IMDBMovieAKA');

		//Get "Also known as (AKA)" information with countries
		curPos := Pos('>Also known as (AKA)<', HTML);
		//LogMessage('Function ParsePage_IMDBMovieAKA - Position of "Also known as (AKA)":|' + IntToStr(curPos));
		If 0 < curPos Then Begin
			endPos := PosFrom('</section>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieAKA - Position of section end:|' + IntToStr(endPos));

			While curPos < endPos Do Begin
				//Find each list item
				curPos := PosFrom('<li role="presentation" class="ipc-metadata-list__item', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieAKA - Position of section curPos:|' + IntToStr(curPos));
				If (curPos = 0) Or (curPos > endPos) Then Break;

				//Extract the country or label
				countryStart := PosFrom('<span class="ipc-metadata-list-item__label', HTML, curPos) + Length('<span class="ipc-metadata-list-item__label');
				countryStart := PosFrom('>', HTML, countryStart) +1;
				countryEnd := PosFrom('</span>', HTML, countryStart);

				If (countryStart = 0) Or (countryEnd = 0) Or (countryEnd <= countryStart) Or (countryEnd > PosFrom('</li>', HTML, curPos)) Then Begin
					countryValue := '';
					LogMessage('Function ParsePage_IMDBMovieAKA - Invalid countryStart or countryEnd: countryStart=' + IntToStr(countryStart) + ', countryEnd=' + IntToStr(countryEnd));
					curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
					Continue;  //Skip to next list item
				End Else Begin
					countryValue := Copy(HTML, countryStart, countryEnd - countryStart);
					//LogMessage('Function ParsePage_IMDBMovieAKA - Extracted Country Value:|' + countryValue);
				End;  //If (countryStart = 0) Or (countryEnd = 0) Or (countryEnd <= countryStart) Or (countryEnd > PosFrom('</li>', HTML, curPos)) Then Begin should end here

				//Extract the AKA title
				akaStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item', HTML, countryEnd) + Length('<span class="ipc-metadata-list-item__list-content-item');
				akaStart := PosFrom('>', HTML, akaStart) + 1;
				akaEnd := PosFrom('</span>', HTML, akaStart);

				If (akaStart = 0) Or (akaEnd = 0) Or (akaEnd <= akaStart) Or (akaEnd > PosFrom('</li>', HTML, curPos)) Then Begin
					akaValue := '';
					//LogMessage('Function ParsePage_IMDBMovieAKA - Invalid akaStart or akaEnd: akaStart=' + IntToStr(akaStart) + ', akaEnd=' + IntToStr(akaEnd));
					curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
					Continue;  //Skip to next list item
				End Else Begin
					akaValue := Copy(HTML, akaStart, akaEnd - akaStart);
					//LogMessage('Function ParsePage_IMDBMovieAKA - Extracted AKA Value:|' + akaValue);
				End;  //If (akaStart = 0) Or (akaEnd = 0) Or (akaEnd <= akaStart) Or (akaEnd > PosFrom('</li>', HTML, curPos)) Then Begin should end here

				//Sanitize extracted data
				If Length(countryValue) > 200 Then Begin
					//LogMessage('Function ParsePage_IMDBMovieAKA - Country value too long, possibly invalid:|' + countryValue);
					countryValue := '';
				End;  //If Length(countryValue) > 200 Then Begin should end here

				If Length(akaValue) > 200 Then Begin
					//LogMessage('Function ParsePage_IMDBMovieAKA - AKA value too long, possibly invalid:|' + akaValue);
					akaValue := '';
				End;  //If Length(akaValue) > 200 Then Begin should end here

				//Combine country and AKA for the custom field
				ItemValue := countryValue + ' - ' + akaValue;
				//LogMessage('Function ParsePage_IMDBMovieAKA - Combined Item Value:|' + ItemValue);

				//Collect the result
				allItemValues := allItemValues + ItemValue + #13#10;
				//LogMessage('Function ParsePage_IMDBMovieAKA - All Item Values so far:|' + allItemValues);

				//Move to the next list item
				curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
				If curPos = 0 Then Begin
					//LogMessage('Function ParsePage_IMDBMovieAKA - Breaking loop: No valid next <li> found.');
					Break;
				End;  //If curPos = 0 Then Begin should end here
			End;  //While curPos < endPos Do Begin should end here

			//Add the collected results to the custom field
			AddCustomFieldValueByName('IMDbCountryAKA', allItemValues);
			LogMessage('Function ParsePage_IMDBMovieAKA - Final result IMDbCountryAKA:|' + allItemValues);
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieAKA - No "Also known as (AKA)" section found in HTML.');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Also known as (AKA)<', HTML);


		//Get (CF~IMDbPremiereDates~) information with countries and dates
		//Initialize the string to collect all entries
		allItemValues := '';

		curPos := Pos('<h3 class="ipc-title__text"><span id="releases">Release date</span>', HTML);
		//LogMessage('Function ParsePage_IMDBMovieAKA - CurPos initial:|' + IntToStr(curPos));
		If 0 < curPos Then Begin
			endPos := PosFrom('</section>', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMovieAKA - endPos:|' + IntToStr(endPos));

			While curPos < endPos Do Begin
				//Find each list item
				curPos := PosFrom('<li role="presentation" class="ipc-metadata-list__item ipc-metadata-list', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieAKA - CurPos list item:|' + IntToStr(curPos));
				If (curPos = 0) Or (curPos > endPos) Then Break;

				//Extract the country or label
				countryStart := PosFrom('aria-label="', HTML, curPos) + Length('aria-label="');
				countryEnd := PosFrom('"', HTML, countryStart);
				countryValue := Copy(HTML, countryStart, countryEnd - countryStart);
				//LogMessage('Function ParsePage_IMDBMovieAKA - CountryValue for (CF~IMDbPremiereDates~):|' + countryValue);

				//Extract the release date
				dateStart := PosFrom('<span class="ipc-metadata-list-item', HTML, countryEnd) + Length('<span class="ipc-metadata-list-item');
				dateStart := PosFrom('>', HTML, dateStart) + 1;
				dateEnd := PosFrom('</span>', HTML, dateStart);
				dateValue := Copy(HTML, dateStart, dateEnd - dateStart);
				//LogMessage('Function ParsePage_IMDBMovieAKA - DateValue for (CF~IMDbPremiereDates~):|' + dateValue);

				//Move curPos past the end of the date span
				curPos := dateEnd + Length('</span>');
				//LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after date for (CF~IMDbPremiereDates~):|' + IntToStr(curPos));

				//Extract any subText (like (limited), (Fantasia International Film Festival), etc.)
				subTextStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item--subText"', HTML, dateEnd);
				//LogMessage('Function ParsePage_IMDBMovieAKA - SubTextStart for (CF~IMDbPremiereDates~):|' + IntToStr(subTextStart));
				If (subTextStart > 0) And (subTextStart < PosFrom('</li>', HTML, dateStart)) Then Begin
					subTextStart := subTextStart + Length('<span class="ipc-metadata-list-item__list-content-item--subText">');
					subTextEnd := PosFrom('</span>', HTML, subTextStart);
					subText := Copy(HTML, subTextStart, subTextEnd - subTextStart);
					dateValue := dateValue + ' ' + subText;
					//Move curPos past the end of the subText span
					curPos := subTextEnd + Length('</span>');
					//LogMessage('Function ParsePage_IMDBMovieAKA - SubText for (CF~IMDbPremiereDates~):|' + subText);
					//LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after subText for (CF~IMDbPremiereDates~):|' + IntToStr(curPos));
				End Else Begin
					subText := '';
				End;  //If (subTextStart > 0) And (subTextStart < PosFrom('</li>', HTML, dateStart)) Then Begin should end here

				//Combine country, date, and subText for the custom field
				ItemValue := countryValue + ' - ' + dateValue;
				//LogMessage('Function ParsePage_IMDBMovieAKA - ItemValue for (CF~IMDbPremiereDates~):|' + ItemValue);

				//Collect the result
				allItemValues := allItemValues + ItemValue + #13#10;

				//Move to the next list item
				curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
				//LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after </li>:|' + IntToStr(curPos));
			End;  //While curPos < endPos Do Begin should end here

			//Add the collected results to the custom field
			AddCustomFieldValueByName('IMDbPremiereDates', allItemValues);
			LogMessage('Function ParsePage_IMDBMovieAKA - Get result (CF~IMDbPremiereDates~):|' + allItemValues);
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<h3 class="ipc-title__text"><span id="releases">Release date</span>', HTML);

		LogMessage('Function ParsePage_IMDBMovieAKA: Ending processing.')

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieAKA END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieCREDIT(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//from "downpage-UTF8_NO_BOM-FullCredits.htm" file
	//Retrieve: ~crew~ctDirectors, ctWriters, ctComposers, ctProducers
	//~actors~ ctActors
Var
	curPos, endPos, index: Integer;
	//debug_pos1: Integer;
	ItemValue, ItemList: String;
	Name, Role, PersonURL: String;
	MoviesID: String;
	ItemValue14: String;
	Fullinfo, Directors, Writers, Composers, Producers: String;
	ItemValue99: String;
	ItemValue1: String;
	epCatValue: String;
	tmpPos, liEnd, subTextStart, subTextEnd: Integer;
	snippet, subText: String;
	subEpTextStart, subEpTextEnd, subYTextStart, subYTextEnd: Integer;
	subEpText, subYText: String;
	Cinematographers: String;
	ItemValue10, enTitleValue, enTitleList: String;
	prodPos: Integer;

Begin

	LogMessage('Function ParsePage_IMDBMovieCREDIT BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Get ~IMDb Movies ID~
		MoviesID := TextBetWeenFirst(DownloadURL, BASE_URL_PRE_TRUE, BASE_URL_SUF);
		LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result MoviesID:|' + MoviesID + '||');

		curPos := Pos('"publicationStatus":"PUBLISHED"},"titleType"', HTML);
		curPos := PosFrom('"text":', HTML, curPos);
		curPos := curPos + Length(IntToStr(curPos));
		ItemValue := TextBetween(HTML, '"', '"', False, curPos);
		AddFieldValueXML('category', ItemValue);
		LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result ~category~:|' + ItemValue + '||');
		epCatValue := ItemValue;  //Needed when importing data for the TV EPISODE for the first time, otherwise, it will fill "TV EPISODE" in (CF~IMDb Directed by:~) only after repeating downloading data. Wierd, but yes.
		LogMessage('Function ParsePage_IMDBMovieCREDIT - Before Cinema1 check, if it is Series, there will be curPos > 0 for MediaType or ~category~ or both: 1.' + IntToStr(Pos('Series', MediaType)) + '|2.' + IntToStr(Pos('Series', GetFieldValueXML('category'))) + '||');

		//Get (CF~IMDB_year~), (CF~IMDB year~) and ~year~ plus Title1 from __NEXT_DATA__ JSON

		If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) Then Begin

			curPos := Pos('<script id="__NEXT_DATA__" type="application/json">', HTML);
			endPos := PosFrom('"castPageTitle":{', HTML, curPos);
			itemList := Copy(HTML, curPos, endPos - curPos);
			ItemValue10 := TextBetweenFirst(itemList, '"releaseYear":{"year":', ',');
			curPos := PosFrom('"', itemList, curPos);
			If TextBetween(itemList, 'endYear":', '},"plot":{"plotText":', False, curPos) = 'null' Then Begin
				ItemValue10 := ItemValue10;
			End Else Begin
				ItemValue10 := ItemValue10 + ' - ' + TextBetween(itemList, 'endYear":', '},"plot":{"plotText":', False, curPos);
			End;  //If TextBetween(itemList, 'endYear":', '},"plot":{"plotText":', False, curPos) = 'null' Then Begin should end here
			If ItemValue10 <> '' Then Begin
				AddCustomFieldValueByName('IMDB_year', ItemValue10);
				AddCustomFieldValueByName('IMDB Year', ItemValue10);
				AddCustomFieldValueByName('Year', ItemValue10);
				AddFieldValueXML('year', ItemValue10);
			End;  //If ItemValue10 <> '' Then Begin should end here

			//Extract English title from titleText.text
			enTitleList := TextBetweenFirst(itemList, '"titleText":{"text":"', '"');
			If enTitleList <> '' Then Begin
				enTitleValue := enTitleList;
				AddCustomFieldValueByName('Title1', enTitleValue);
				AddFieldValueXML('title', enTitleValue);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result English title as (CF~Title1~):|' + enTitleValue + '||');
			End;  //If enTitleList <> '' Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) And Not (KeywordsPageDownloaded) Then Begin should end here


		//Get (CF~Cinema1~) Full Cast & Crew - Full Credits Link: in my skin
		If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin
			curPos := Pos('>Photos &amp; videos<', HTML);  //In reference page
			LogMessage('Function ParsePage_IMDBMovieCREDIT ->Photos &amp; videos<:|' + IntToStr(curPos) + '||');
		End Else Begin  //End of If GET_FULL_CREDIT_FROM_REFERENCE
			//Else branch (fullcredits)
			curPos := Pos('crew<', HTML);  //In fullcredits page
		End;  //If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin should end here
		LogMessage('Function ParsePage_IMDBMovieCREDIT - reference or fullcredits page chosen curPos:|' + IntToStr(curPos) + '||');

		If 0 < curPos Then Begin
			endPos := curPos;  //end of Else branch (fullcredits)
			If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin
				ItemValue := HTMLValues2(HTML, '>Photos &amp; videos<', '>Storyline<', '<span id', '</span>', '<br>   •   ', endPos);  //WEB_SPECIFIC
				ItemValue := StringReplace(ItemValue, 'Complete, Cast', 'Cast (in credits order) complete,', True, False, True);
			End Else Begin//End of If GET_FULL_CREDIT_FROM_REFERENCE
				//Else branch (fullcredits)
				If Pos('<h2>See also</h2>', HTML) > 0 Then Begin
					ItemValue := HTMLValues2(HTML, 'crew<', '<h2>See also</h2>', '<h4', '</h4>', '<br>   •   ', endPos);  //WEB_SPECIFIC
				End Else Begin
					ItemValue := HTMLValues2(HTML, 'Crew<', '<span class="ipc-responsive-button__text">Edit</span>', '<option value=', '</option>', '<br>   •   ', endPos);  //WEB_SPECIFIC
				End;  //If Pos('<h2>See also</h2>', HTML) > 0 Then Begin should end here
			End;  //If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin should end here - end of Else branch (fullcredits)
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result HTMLValues2 for (CF~Cinema1~):|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, 'Cast          (in credits order)         ', 'Cast (in credits order) ', True, False, True);
			ItemValue := StringReplace(ItemValue, 'Series       Cast', 'Series Cast', True, False, True);
		End;  //If 0 < curPos Then Begin should end here
		If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin
			If ItemValue <> '' Then ItemValue := '<link url="https://www.imdb.com/title/' + MoviesID + '/reference">Full Cast&Crew info available for the title at the Reference page:</link><br>   •   ' + ItemValue;
		End Else Begin  //End of If GET_FULL_CREDIT_FROM_REFERENCE
			//Else branch (fullcredits)
			If ItemValue <> '' Then ItemValue := '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits">Full cast & crew info available for the title at the Full Credits page:</link><br>   •   ' + ItemValue;
		End;  //If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin should end here
		AddCustomFieldValueByName('Cinema1', ItemValue);
		LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result (CF~Cinema1~):|' + ItemValue + '||');
		If PosFrom('Thanks', ItemValue, 1) > 0 Then AddCustomFieldValueByName(THANKS_FIELD, '-1');

		Fullinfo := '';

		LogMessage('Function ParsePage_IMDBMovieCREDIT - Before (CF~IMDb Directed by:~) check, if it is Series, there will be curPos for MediaType or ~category~ or both: Mediatype:|' + IntToStr(Pos('Series', MediaType)) + '| ~category~:|' + IntToStr(Pos('Series', GetFieldValueXML('category'))) + '||');

		//Get ~crew~ctDirectors, ctWriters, ctActors ctComposers, ctProducers
		//Add (CF~IMDb Directed by:~)
		//Initialize the custom field IMDb Directed by: with "A FILM BY" before the name, everything in uppercase:
		If GET_FULL_CREDIT Or GET_FULL_CREDIT_FROM_REFERENCE Then Begin
			LogMessage('Function ParsePage_IMDBMovieCREDIT - After (CF~IMDb Directed by:~) check, if it is Series, there will be curPos for MediaType or ~category~ or both: Mediatype:|' + IntToStr(Pos('Series', MediaType)) + '| ~category~:|' + IntToStr(Pos('Series', GetFieldValueXML('category'))) + '||');
			ItemValue99 := '';
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Initializing ItemValue99 for (CF~IMDb Directed by:~):|' + ItemValue99);
			LogMessage('Function ParsePage_IMDBMovieCREDIT - category:|' + GetFieldValueXML('category'));
			LogMessage('Function ParsePage_IMDBMovieCREDIT - MediaType:|' + MediaType);

			//Get ~directors~ & (CF~IMDb Directed by:~);
			If Pos('="Director', HTML) > 0 Then Begin
				curPos := Pos('="Director', HTML);
				LogMessage('Function ParsePage_IMDBMovieCREDIT -="Director curPos:|' + IntToStr(curPos) + '||');
				//Movies +series + full credits
				(* //Check this in the future if it is need for movies + fullcredits or just for -reference page.
				If ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin
				//*)
				curPos := PosFrom('>Edit<', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT >Edit< curPos for Movies:|' + IntToStr(curPos) + '||');
				curPos := curPos + Length('>Edit<');
				endPos := PosFrom('</section>', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT </section> endPos:|' + IntToStr(endPos) + '||');

			(* //Not needed anymore since layout is the same for Movies and Series for Directors on /fullcredits and there are no directors for series on /reference
			End Else Begin
				If PosFrom('>Director', HTML, curPos) > 0 Then Begin //For reference page?
					curPos := PosFrom(' href="/name', HTML, curPos) + Length(' href="/name');
					LogMessage('Function ParsePage_IMDBMovieCREDIT  href="/name curPos for Series:|' + IntToStr(curPos) + '||');
					endPos := PosFrom('</section>', HTML, curPos);
				End Else Begin
					//Movies +series +reference - NO DIRECTORS FOR SERIES ON REFERENCE
					If PosFrom('<table class="simpleTable', HTML, curPos) > 0 Then Begin
						curPos := PosFrom('<table class="simpleTable', HTML, curPos);
						LogMessage('Function ParsePage_IMDBMovieCREDIT Movies <table class="simpleTable curPos1 for Movies:|' + IntToStr(curPos) + '||');
						curPos := curPos + Length('<table class="simpleTable');
						endPos := PosFrom('</tbody>', HTML, curPos);
					End;  //If PosFrom('<table class="simpleTable', HTML, curPos) > 0 Then Begin should end here
				End;  //If PosFrom('>Director', HTML, curPos) > 0 Then Begin should end here
			End;  //End of the not used anymore End Else Begin branch
			//*)
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Director section located and parsed.');

				//Get all "raw" crew summary (in raw because we need the hidden person links). There can be one person or several in the ~crew~
				ItemList := Copy(HTML, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Extracted director crew summary.');
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Extracted ItemList for director crew summary:' + ItemList);
				curPos := Pos('name-credits--title-text-small', ItemList);
				LogMessage('Function ParsePage_IMDBMovieCREDIT name-credits--title-text-small curPos in ItemList:|' + IntToStr(curPos) + '||');
				curPos := curPos + Length('name-credits--title-text-small');
				LogMessage('Function ParsePage_IMDBMovieCREDIT first curPos + its length in ItemList:|' + IntToStr(curPos) + '||');
				curPos := PosFrom('href="/name/', ItemList, curPos);  //because, the name is now twice in html layout, one after antoher, and we need the second one
				LogMessage('Function ParsePage_IMDBMovieCREDIT second href="/name curPos in ItemList:|' + IntToStr(curPos) + '||');
				index := 1;
				ItemValue99 := '';  //Initialize for "IMDb Directed by:" custom field

				While curPos > 0 Do Begin
					If (index > PEOPLE_LIMITS) Then Break;  //Limit exceeded

					//Get PersonURL (It must always be present)
					PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~ctDirectors~:|' + PersonURL + '||');

					//Get Name (It must always be present)
					Name := Trim(TextBetWeen(ItemList, '">', '</a>', False, curPos));
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result Name for ~ctDirectors~:|' + Name + '||');

					//Try to get subtext (like (as The Wachowski Brothers)
					subTextEnd := PosFrom('</li>', ItemList, curPos);
					LogMessage('Function ParsePage_IMDBMovieCREDIT first subTextEnd </li> curPos:|' + IntToStr(subTextEnd) + '||');
					LogMessage('Function ParsePage_IMDBMovieCREDIT subTextEnd - curPos:|' + Copy(ItemList, curPos, subTextEnd - curPos) + '||');
					If PosFrom('</span>', Copy(ItemList, curPos, subTextEnd - curPos), 1) <> 0 Then Begin
						subTextStart := PosFrom('<span>', ItemList, curPos);
						LogMessage('Function ParsePage_IMDBMovieCREDIT first <span subTextStart curPos:|' + IntToStr(curPos) + '||');
						//If subTextStart > 0 Then Begin
						subTextStart := subTextStart + Length('<span>');
						LogMessage('Function ParsePage_IMDBMovieCREDIT first <span> subTextStart + its length in ItemList:|' + IntToStr(subTextStart) + '||');
						subTextEnd := PosFrom('</span>', ItemList, subTextStart);
						LogMessage('Function ParsePage_IMDBMovieCREDIT subTextEnd > endPos:|' + IntToStr(subTextEnd) + '||');
						subText := Trim(Copy(ItemList, subTextStart, subTextEnd - subTextStart));
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subText for ~ctDirectors~ when not empty:|' + subText + '||');
					End Else Begin
						subText := '';
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subText for ~ctDirectors~ when empty:|' + subText + '||');
					End;  //If PosFrom('</span>', Copy(ItemList, curPos, subTextEnd - curPos), 1) <> 0 Then Begin should end here

					subEpTextEnd := PosFrom('</li>', ItemList, curPos);
					LogMessage('Function ParsePage_IMDBMovieCREDIT first subEpTextEnd </li> curPos:|' + IntToStr(subEpTextEnd) + '||');
					LogMessage('Function ParsePage_IMDBMovieCREDIT subEpTextEnd - curPos:|' + Copy(ItemList, curPos, subEpTextEnd - curPos) + '||');
					If PosFrom('</button>', Copy(ItemList, curPos, subEpTextEnd - curPos), 1) <> 0 Then Begin
						subEpTextStart := PosFrom('<button', ItemList, curPos);
						subEpTextStart := PosFrom('="false"', ItemList, subEpTextStart);  //We need this step because ="false" is present even before <button
						LogMessage('Function ParsePage_IMDBMovieCREDIT subTextEnd ="false" endPos:|' + IntToStr(subEpTextStart) + '||');
						subEpTextStart := subEpTextStart + Length('="false"');
						subEpTextEnd := PosFrom('/butt', ItemList, subEpTextStart);
						LogMessage('Function ParsePage_IMDBMovieCREDIT subTextEnd /butt endPos:|' + IntToStr(subEpTextEnd) + '||');
						subEpText := Trim(Copy(ItemList, subEpTextStart, subEpTextEnd - subEpTextStart));
						subEpText := StringReplace(SubEpText, '>', '(', True, True, False);
						subEpText := StringReplace(SubEpText, '<', ',', True, True, False);
						subEpText := Trim(subEpText);
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subEpText for ~ctDirectors~ when not empty:|' + subEpText + '||');
					End Else Begin
						subEpText := '';
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subEpText for ~ctDirectors~ when empty:|' + subEpText + '||');
					End;  //If PosFrom('</button>', Copy(ItemList, curPos, subEpTextEnd - curPos), 1) <> 0 Then Begin should end here

					subYTextEnd := PosFrom('</li>', ItemList, curPos);
					LogMessage('Function ParsePage_IMDBMovieCREDIT first subYTextEnd </li> curPos:|' + IntToStr(subYTextEnd) + '||');
					LogMessage('Function ParsePage_IMDBMovieCREDIT subYTextEnd - curPos:|' + Copy(ItemList, curPos, subYTextEnd - curPos) + '||');
					If PosFrom('</div>', Copy(ItemList, curPos, subYTextEnd - curPos), 1) <> 0 Then Begin

						subYTextStart :=  PosFrom(' • ', ItemList, curPos);
						LogMessage('Function ParsePage_IMDBMovieCREDIT subYTextStart " • " curPos:|' + IntToStr(subYTextStart) + '||');
						If subYTextStart <> 0 Then Begin
							subYTextEnd := PosFrom('</div>', ItemList, subYTextStart);
							LogMessage('Function ParsePage_IMDBMovieCREDIT subYTextEnd </div> endPos:|' + IntToStr(subYTextEnd) + '||');
							subYText := Trim(Copy(ItemList, subYTextStart, subYTextEnd - subYTextStart));
							LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result trimmed subYText for ~ctDirectors~:|' + subYText + '||');
							subYText := StringReplace(subYText, '• ', '', True, True, False);
							LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result replace bullet subYText for ~ctDirectors~:|' + subYText + '||');
							subYText := StringReplace(subYText, '<', ')', True, True, False);
							LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result replace adding ")" subYText for ~ctDirectors~:|' + subYText + '||');
							subYText := Trim(subYText);
							LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subYText for ~ctDirectors~ when not empty:|' + subYText + '||')
						End Else Begin
							subYText := '';
							LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subYText for ~ctDirectors~ when empty:|' + subYText + '||');
						End;  //If subYTextStart <> 0 Then Begin should end here
					End Else Begin
						subYText := '';
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subYText for ~ctDirectors~ when empty:|' + subYText + '||');
					End;  //If PosFrom('</div>', Copy(ItemList, curPos, subYTextEnd - curPos), 1) <> 0 Then Begin should end here

					subText := subText + ' ' + subEpText + ' ' + subYText;
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result subText + subEpText + subYText for ~ctDirectors~:|' + subYText + '||');
					subText := Trim(subText);
					If subYText <> '' Then subText := subText + ')';
					subText := StringReplace(subText, '  ', ' ', True, True, False);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result final subText after final StringReplace for ~ctDirectors~ :|' + subYText + '||');

					//Update Directors variable
					If Directors <> '' Then Directors := Directors + #13#10;
					If PersonURL <> '' Then Directors := Directors + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ';
					If subText <> '' Then Directors := Directors + subText;
					LogMessage('Function ParsePage_IMDBMovieCREDIT -  Get results Directors:#' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||ctDirectors');

					//Get Role NO: PVD don't have Role in crew people
					If Pos('https://www.imdb.com/name//' ,PersonURL) < 1 Then AddMoviePerson(Name, '', '', PersonURL, ctDirectors);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results  ~ctDirectors~: #' + IntToStr(index) + '|' + Name + '|' + PersonURL + '||ctDirectors');

					//(CF~IMDb Directed by:~) (formatted as "A FILM BY [Name]")
					//Log the value of MediaTypeBase
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Value of MediaTypeBase:|' + MediaTypeBase);

					If ItemValue99 = '' Then
						ItemValue99 := UpperCase(Name)  //First director does not append " • "
					Else
						ItemValue99 := ItemValue99 + ' • ' + UpperCase(Name);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Updated ItemValue99 for (CF~IMDb Directed by:~):|' + ItemValue99);

					curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //We ned to go here, because there are 2 instances of the name in current html layout, and we need the second one
					LogMessage('Function ParsePage_IMDBMovieCREDIT - updated curPos for ~ctDirectors~: #' + IntToStr(curPos) + '|');
					index := index + 1;
				End;  //While curPos > 0 Do Begin should end here

				//Verify final value before adding it to the custom field
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Final ~category~ for (CF~IMDb Directed by:~) value (before adding to custom field):|' + UpperCase(epCatValue));
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Final (CF~IMDb Directed by:~) value (before adding to custom field):|' + ItemValue99);

				//Add custom field IMDb Directed by:
				If ItemValue99 <> '' Then AddCustomFieldValueByName('IMDb Directed by:', 'A ' + UpperCase(epCatValue) + ' BY ' + ItemValue99);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - (CF~IMDb Directed by:~) added with value:|' + ItemValue99);
				If Directors <> '' Then fullinfo := fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.ace5cb4c-8708-4238-9542-04641e7c8171">Directed by:</link><br>' + Directors + '<br><br>';
				LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value:|' + Directors);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value for Directors:|' + fullinfo);
			End Else Begin
				ItemValue99 := '';
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Directors section not found.');
			End;  //If Pos('="Director', HTML) > 0 Then Begin should end here

			//Go to "Writer:" or "Writers:" ~crew~ ~ctWriters~
			curPos := Pos('="Writer', HTML);
			If curPos > 0 Then Begin
				curPos := PosFrom('>Edit<', HTML, curPos);  //Strings end which opens the block content data. WEB_SPECIFIC
				curPos := curPos + Length('>Edit<');  //Strings end which opens the block content data. WEB_SPECIFIC

				//Get all "raw" crew summary (in raw because we need the hidden person links)
				endPos := PosFrom('</section>', HTML, curPos);  //Strings which open/close the data. WEB_SPECIFIC
				ItemList := Copy(HTML, curPos, endPos - curPos);
				//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for ~ctWriters~:|' + ItemList + '||');
				curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC
				index := 1;

				While curPos > 0 Do Begin
					If (index > PEOPLE_LIMIT) Then Break;  //Limit exceeded

					//Get PersonURL (Always must have it)
					PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which open/close the data. WEB_SPECIFIC
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~ctWriters~:|' + PersonURL + '||');

					//Get Name (Always must have it)
					Name := TextBetWeen(ItemList, '">', '</a>', False, curPos);  //Strings which open/close the data. WEB_SPECIFIC
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for ~ctWriters~:|' + Name + '||');

					//Extract subtext (Role)
					subTextStart := PosFrom('<span', ItemList, curPos);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subTextStart for ~ctWriters~ :|' + IntToStr(subTextStart));

					If subTextStart > 0 Then Begin
						subTextStart := subTextStart + Length('<span');
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText <span for ~ctWriters~:|' + subText + '||');
						subTextStart := PosFrom('>', ItemList, subTextStart);
						subTextStart := subTextStart + Length('>');
						subTextEnd := PosFrom('</span>', ItemList, subTextStart);
						subText := Copy(ItemList, subTextStart, subTextEnd - subTextStart);

						//Clean up subtext by replacing newlines and multiple spaces
						subText := StringReplace(subText, #13#10, ' ', True, False, False);  //Replace newline characters with a space
						subText := StringReplace(subText, #10, ' ', True, False, False);    //Replace line feed characters with a space
						subText := StringReplace(subText, #13#10, ' ', True, False, False);    //Replace carriage return characters with a space
						While Pos('  ', subText) > 0 Do subText := StringReplace(subText, '  ', ' ', True, False, False);  //Replace multiple spaces with a single space

						subText := Trim(subText);
						LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText for Writers in (CF~Cinema~):|' + subText + '||');
					End Else Begin
						subText := '';
					End;  //If subTextStart > 0 Then Begin should end

					//Update Writers variable
					If Writers <> '' Then Writers := Writers + #13#10;
					If PersonURL <> '' Then Writers := Writers + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ';
					If subText <> '' Then Writers := Writers + subText;

					//Add movie person to writers category
					AddMoviePerson(Name, '', '', PersonURL, ctWriters);

					LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results ~ctWriters~: #' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||ctWriters');

					curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //String which opens the subList data. WEB_SPECIFIC
					index := index + 1;
				End;  //While curPos > 0 Do Begin should end here
			End;  //If curPos > 0 Then Begin should end here - curPos := Pos('="Writer', HTML);
			If Writers <> '' Then fullinfo := fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.c84ecaff-add5-4f2e-81db-102a41881fe3">Writing Credits:</link><br>' + Writers + '<br><br>';
			LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value for ctWriters:|' + fullinfo);

			//Get (CF~IMDb Cast:~) cast, up to 15 names for the design of my skin
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Starting cast extraction process for (CF~IMDb Cast:~)');
			curPos := Pos('="Cast:', HTML);  //Start of cast block
			curPos := PosFrom('>Edit<', HTML, curPos);
			curPos := curPos + Length('>Edit<');

			//Get all "raw" cast summary (in raw because we need the hidden person links)
			endPos := PosFrom('</section>', HTML, curPos);  //End of cast block
			ItemList := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Extracted cast summary.');

			curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 0;
			ItemValue1 := '';  //Initialize the custom IMDb Cast field up to 15 names for the design of my skin

			While (curPos > 0) And (index < 15) Do Begin
				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for (CF~IMDb Cast:~):|' + PersonURL + '||');

				//Get Name (It must always be present)
				Name := Trim(TextBetWeen(ItemList, '">', '</a>', False, curPos));  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for (CF~IMDb Cast:~):|' + Name + '||');

				//(CF~IMDb Cast:~) (names only, separated by " • ")
				If Name <> '' Then Begin
					If ItemValue1 = '' Then
						ItemValue1 := Name
					Else
						ItemValue1 := ItemValue1 + ' • ' + Name;
					index := index + 1;
				End;  //If Name <> '' Then Begin should end here

				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //Move to the next actor's block
			End;  //While (curPos > 0) And (index < 15) Do Begin should end here

			//Add custom field IMDb Cast
			AddCustomFieldValueByName('IMDb Cast', ItemValue1);

			//Log the IMDb Cast field for verification
			LogMessage('Function ParsePage_IMDBMovieCREDIT - (CF~IMDb Cast:~):|' + ItemValue1);
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Completed cast extraction process for (CF~IMDb Cast:~)');
			LogMessage('Function ParsePage_IMDBMovieCREDIT - '#13#10 + '');
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results curPos after CF~IMDb Cast~:|' + IntToStr(curPos));

			//Proceed to ~ctActors~ list regular
			curPos := Pos('="Cast:', HTML);  //Start of cast block
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results curPos after CF~IMDb Cast~ and before proceeding to ~ctActors~ (="Cast:) :|' + IntToStr(curPos));
			curPos := PosFrom('>Edit<', HTML, curPos);  //Strings start which opens the block content data. WEB_SPECIFIC
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results curPos after proceeding to ~ctActors~ (>Edit<) :|' + IntToStr(curPos));
			curPos := curPos + Length('>Edit<');  //Strings end which opens the block content data. WEB_SPECIFIC

			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or severals in the ~crew~
			endPos := PosFrom('</section>', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			LogMessage('Function ParsePage_IMDBMovieCREDIT - endPos </section>:|' + IntToStr(endPos));

			If PosFrom('>Producers</span>', HTML, curPos) > 0 Then Begin
				prodPos := PosFrom('>Producers</span>', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - prodPos multiple producers found at:|' + IntToStr(prodPos));

			End Else Begin

				If PosFrom('>Producer</span>', HTML, curPos) > 0 Then prodPos := PosFrom('>Producer</span>', HTML, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - prodPos single producer found at:|' + IntToStr(prodPos));
			End;  //If PosFrom('>Producers</span>', HTML, curPos) > 0 Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - final prodPos founnd at:|' + IntToStr(prodPos));

			If prodPos > endPos Then Begin
				endPos := PosFrom('</section>', HTML, curPos)  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - endPos found as </section>:|' + IntToStr(endPos));

			End Else Begin

				If PrevPos('"http://www.w3.org/2000/svg"', HTML, prodPos) > curPos Then endPos := PrevPos('"http://www.w3.org/2000/svg"', HTML, endPos) + Length('"http://www.w3.org/2000/svg"');
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Final endPos found as "http://www.w3.org/2000/svg:|' + IntToStr(endPos));
			End;  //If PosFrom('>Producers</span>', HTML, curPos) > endPos Then Begin should end here
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Final endPos found, </section> or "http://www.w3.org/2000/svg:|' + IntToStr(endPos));

			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for ~ctActors~:|' + ItemList + '||');
			curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC

			index := 0;
			While curPos>0 Do Begin

				If (index > PEOPLE_LIMIT) Then Break;  //Limited exceeded.

				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~ctActors~:|' + PersonURL + '||');

				//Get Name (It must always be present)
				Name := Trim(TextBetWeen(ItemList, '">', '</a>', False, curPos));  //Strings which opens/closes the data. WEB_SPECIFIC
				//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for ~ctActors~:|' + Name + '||');

				//Get Role (may or may not be present)
				liEnd := PosFrom('</li>', ItemList, curPos);
				If liEnd > 0 Then Begin
					snippet := Copy(ItemList, curPos, liEnd - curPos);
					//LogMessage('Function ParsePage_IMDBMovieCREDIT - Get snippet for Role for ~ctActors~:|' + snippet + '||');
					tmpPos := PosFrom('characters/', snippet, 1);
					If tmpPos > 0 Then Begin
						tmpPos := PosFrom('">', snippet, tmpPos);
						Role := TextBetWeen(snippet, '">', '</a>', False, tmpPos);
						//LogMessage('Function ParsePage_IMDBMovieCREDIT - Get Role for ~ctActors~:|' + Role + '||');
					End Else Begin
						Role := '';
					End;  //If tmpPos > 0 Then Begin should end here
				End;  //If liEnd > 0 Then Begin should end here

				If (PosFrom('"false">', ItemList, curPos) <> 0) And (PosFrom('</button>', ItemList, curPos) <> 0) Then Begin
					curPos := PosFrom('"false">', ItemList, curPos);  //To add episodes and years when Series
					Role := Role + '                  ' + TextBetWeen(ItemList, '"false">', '</button>', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results cumulative Role for Series for ~ctActors~:|' + Role + '||');
				End Else Begin
					//Role := Role;
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results no spaces after Role for Series for ~ctActors~:|' + Role + '||');
				End;  //If PosFrom('"false">', ItemList, curPos) <> 0 Then Begin should end here

				If PosFrom(' • ', ItemList, curPos) <> 0 Then Begin
					curPos := PosFrom(' • ', ItemList, curPos);  //To add episodes and years when Series
					Role := Role + ' ' + TextBetWeen(ItemList, ' • ', '</div>', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCREDIT -Test for movies and not episodes for Series for ~ctActors~:|' + Role + '||');
				End Else Begin
					Role := Role;
					//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results no years for Series for ~ctActors~:|' + Role + '||');
				End;  //If PosFrom(' • ', ItemList, curPos) <> 0 Then Begin should end here

				//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Role_1 for ~ctActors~:|' + Role + '||');
				AddMoviePerson(Name, '', Role, PersonURL, ctActors);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results  ~ctActors~: #' + IntToStr(index) + '|' + Name + '|' + Role + '|' + PersonURL + '||ctActors');
				index := index + 1;
				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //String which opens the Web Result item List data. WEB_SPECIFIC
			End;  //While curPos>0 Do Begin shoild end here
		End;  //If GET_FULL_CREDIT Or GET_FULL_CREDIT_FROM_REFERENCE Then Begin should end here

		//Get ~crew~ ~ctProducers~ & ~ctComposers~ regardless of GET_FULL_CREDIT, because they are not present on Main page anyway

		//Go to ~crew~ ~ctProducers~
		//Find first 'Producer' occurrence
		curPos := Pos('>Producer', HTML);

		//Move to the first '<' after '>Producer'
		curPos := PosFrom('<', HTML, curPos);

		If 0 < curPos Then Begin
			//Check if the string directly after '<' is '/span>'
			If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin
				//If /span> is immediately after <, reset curPos to first >Producer
				curPos := Pos('>Producer', HTML);
			End Else Begin
				//Otherwise, go to the next '>Producer' occurrence
				curPos := PosFrom('>Producer', HTML, curPos + Length('>Producer'));  //Strings end which opens the block content data. WEB_SPECIFIC
			End;  //If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin should end here
			curPos := PosFrom('>Edit<', HTML, curPos);
			curPos := curPos + Length('>Edit<');

			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
			endPos := PosFrom('</section>', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for ~ctProducers~:|' + ItemList + '||');
			curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 0;
			While curPos>0 Do Begin
				If (index > PEOPLE_LIMIT) Then Break;  //Limited exceeded.

				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~ctProducers~:|' + PersonURL + '||');

				//Get Name (It must always be present)
				Name := TextBetWeen(ItemList, '>', '</a>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for ~ctProducers~:|' + Name + '||');

				//Extract subtext (Role): PVD don't save Role in crew people but is added for Ivek23 as LogMessage compatibility and for afrocuban to fill in complete data for a person in (CF~Cinema~)
				subTextStart := PosFrom('<span', ItemList, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subTextStart for ~ctProducers~ :|' + IntToStr(subTextStart));

				If subTextStart > 0 Then Begin
					subTextStart := subTextStart + Length('<span');
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText <span for ~ctProducers~:|' + subText + '||');
					subTextStart := PosFrom('>', ItemList, subTextStart);
					subTextStart := subTextStart + Length('>');
					subTextEnd := PosFrom('</span>', ItemList, subTextStart);
					subText := Copy(ItemList, subTextStart, subTextEnd - subTextStart);

					//Clean up subtext by replacing newlines and multiple spaces
					subText := StringReplace(subText, #13#10, ' ', True, False, False);  //Replace newline characters with a space
					subText := StringReplace(subText, #10, ' ', True, False, False);    //Replace line feed characters with a space
					subText := StringReplace(subText, #13#10, ' ', True, False, False);    //Replace carriage return characters with a space
					While Pos('  ', subText) > 0 Do subText := StringReplace(subText, '  ', ' ', True, False, False);  //Replace multiple spaces with a single space
					subText := Trim(subText);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText for Producers in (CF~Cinema~):|' + subText + '||');
				End Else Begin
					subText := '';
				End;  //If subTextStart > 0 Then Begin should end here

				//Update Producers variable
				If Producers <> '' Then Producers := Producers + #13#10;
				If PersonURL <> '' Then Producers := Producers + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ';
				If subText <> '' Then Producers := Producers + subText;

				//Add movie person to Producers category
				AddMoviePerson(Name, '', '', PersonURL, ctProducers);

				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results ~ctProducers~: #' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||ctProducers');

				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //String which opens the subList data. WEB_SPECIFIC
				index := index + 1;
			End;  //While curPos>0 Do Begin should end here
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Producer', HTML);
		If Producers <> '' Then fullinfo := fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.0af123ce-1605-4a51-93cf-7ad477b11832">Produced by:</link><br>' + Producers + '<br><br>';
		LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value for ctProducers:|' + fullinfo);

		//Go to ~crew~ ~ctComposers~
		//Find '>Composer' occurrence

		//curPos := Pos('>Composer', HTML);
		curPos := LastPos('>Composer</span>', HTML);
		If curPos = 0 Then curPos := LastPos('>Composers</span>', HTML);
		LogMessage('Function ParsePage_IMDBMovieCREDIT - LastPos(>Composer(s)</span>, HTML):|' + IntToStr(curPos) + '||');

		//Move to the first '<' after '>Composer'
		If 0 < curPos Then Begin

			(*
			endPos := curPos + Length('>Composer') + 1;
			If (Copy(HTML, curPos, endPos - curPos) <> '>composer:') And (Copy(HTML, curPos, endPos - curPos) <> '>composer ') And (Copy(HTML, curPos, endPos + 3 - curPos) <> '>Composer</a>') Then Begin
				curPos := PosFrom('<', HTML, curPos);  //Because of cases like: >composer: title music</span> or when "Composer" is a Role in Cast or elsewhere
				LogMessage('Function ParsePage_IMDBMovieCREDIT - content of 50 chars around >Composer curPos check:|' + Copy(HTML, curPos + Length('>Composer'), 50));
				LogMessage('Function ParsePage_IMDBMovieCREDIT - second >Composer curPos check:|' + IntToStr(curPos) + '||');

			End Else Begin

				curPos := LastPos('>Composer</span>', HTML);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - second LastPos(>Composer</span>, HTML):|' + IntToStr(curPos) + '||');
				If PosFrom('>Composer</span>', HTML, curPos) > 0 Then Begin
					curPos := PosFrom('<', HTML, curPos);

				End Else Begin

					curPos := 0;
				End;  //If PosFrom(LastPos('>Composer</span>', HTML), HTML, curPos) > 0 Then Begin should end here

			End;  //If (Copy(HTML, curPos, endPos - curPos) <> '>composer:') And (Copy(HTML, curPos, endPos - curPos) <> '>composer ') Then Begin should end here
			//*)

			curPos := PosFrom('<', HTML, curPos);

		End Else Begin

			curPos := 0;
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Composer', HTML);

		If 0 < curPos Then Begin

			(*
			//Check if the string directly after '<' is '/span>'
			If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin
				//If /span> is immediately after <, reset curPos to first >Composer
				curPos := Pos('>Composer', HTML);
			End Else Begin
				//Otherwise, go to the next '>Composer' occurrence
				curPos := PosFrom('>Composer', HTML, curPos + Length('>Composer'));  //Strings end which opens the block content data. WEB_SPECIFIC
			End;  //If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin should end here
			//*)

			curPos := PosFrom('>Edit<', HTML, curPos);
			curPos := curPos + Length('>Edit<');

			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
			endPos := PosFrom('</section>', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for ~ctComposers~:|' + ItemList + '||');
			curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 0;
			While curPos>0 Do Begin
				If (index > PEOPLE_LIMIT) Then Break;  //Limited exceeded.

				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~ctComposers~:|' + PersonURL + '||');

				//Get Name (It must always be present)
				Name := TextBetWeen(ItemList, '>', '</a>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for ~ctComposers~:|' + Name + '||');

				//Extract subtext (Role): PVD don't save Role in crew people but is added for Ivek23 as LogMessage compatibility and for afrocuban to fill in complete data for a person in (CF~Cinema~)
				subTextStart := PosFrom('<span', ItemList, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subTextStart for ~ctComposers~ :|' + IntToStr(subTextStart));

				If subTextStart > 0 Then Begin
					subTextStart := subTextStart + Length('<span');
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText <span for ~ctComposers~:|' + subText + '||');
					subTextStart := PosFrom('>', ItemList, subTextStart);
					subTextStart := subTextStart + Length('>');
					subTextEnd := PosFrom('</span>', ItemList, subTextStart);
					subText := Copy(ItemList, subTextStart, subTextEnd - subTextStart);

					//Clean up subtext by replacing newlines and multiple spaces
					subText := StringReplace(subText, #13#10, ' ', True, False, False);  //Replace newline characters with a space
					subText := StringReplace(subText, #10, ' ', True, False, False);    //Replace line feed characters with a space
					subText := StringReplace(subText, #13#10, ' ', True, False, False);    //Replace carriage return characters with a space
					While Pos('  ', subText) > 0 Do subText := StringReplace(subText, '  ', ' ', True, False, False);  //Replace multiple spaces with a single space

					subText := Trim(subText);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText for Composerss in (CF~Cinema~):|' + subText + '||');
				End Else Begin
					subText := '';
				End;  //If subTextStart > 0 Then Begin should end here
				//Update Composers variable
				If Composers <> '' Then Composers := Composers + #13#10;
				If PersonURL <> '' Then Composers := Composers + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ';
				If subText <> '' Then Composers := Composers + subText;

				//Add movie person to Composers category
				AddMoviePerson(Name, '', '', PersonURL, ctComposers);

				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results ~ctComposers~: #' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||ctComposers');

				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //String which opens the subList data. WEB_SPECIFIC
				index := index + 1;
			End;  //While curPos>0 Do Begin should end here
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Composer', HTML);

		If Composers <> '' Then fullinfo := fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.00f5faa0-5f76-4eb5-87a1-ec8d484d1779">Music:</link><br>' + Composers + '<br><br>';
		LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value for ctComposers:|' + fullinfo);

		//Get some other crew (~Cinematography~ and ~Thanks~)
		//~Cinematography~ (CF~Cinema~)
		//Find first '>Cinematographer' occurrence
		curPos := Pos('>Cinematographer', HTML);

		//Move to the first '<' after '>Cinematographer'
		If 0 < curPos Then Begin
			endPos := curPos + Length('>Cinematographer') + 1;
			If (Copy(HTML, curPos, endPos - curPos) <> '>cinematographer:') And (Copy(HTML, curPos, endPos - curPos) <> '>cinematographer ') Then Begin
				curPos := PosFrom('<', HTML, curPos);  //Because of cases like: >cinematographer: additional....</span>
				LogMessage('Function ParsePage_IMDBMovieCREDIT - content of 50 chars around >Cinematographer curPos check:|' + Copy(HTML, curPos + Length('>Cinematographer'), 50));
				LogMessage('Function ParsePage_IMDBMovieCREDIT - second >Cinematographer curPos check:|' + IntToStr(curPos) + '||');

			End Else Begin

				curPos := 0;
			End;  //If (Copy(HTML, curPos, endPos - curPos) <> '>cinematographer:') And (Copy(HTML, curPos, endPos - curPos) <> '>cinematographer ') Then Begin should end here

		End Else Begin

			curPos := 0;
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Cinematographer', HTML);

		If 0 < curPos Then Begin
			//Check if the string directly after '<' is '/span>'
			If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin
				//If /span> is immediately after <, reset curPos to first >Cinematographer
				curPos := Pos('>Cinematographer', HTML);
			End Else Begin
				//Otherwise, go to the next '>Cinematographer' occurrence
				curPos := PosFrom('>Cinematographer', HTML, curPos + Length('>Cinematographer'));  //Strings end which opens the block content data. WEB_SPECIFIC
			End;  //If Copy(HTML, curPos + 1, Length('/span>')) = '/span>' Then Begin should end here
			curPos := PosFrom('>Edit<', HTML, curPos);
			curPos := curPos + Length('>Edit<');

			//Get all "raw" crew summary (in raw because we need the hidden person links) May one person or several in the ~crew~
			endPos := PosFrom('</section>', HTML, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for Cinematographers in (CF~Cinema~):|' + ItemList + '||');
			curPos := Pos('name-credits--title-text-small', ItemList);  //String which opens the subList data. WEB_SPECIFIC
			index := 0;
			While curPos>0 Do Begin
				If (index > PEOPLE_LIMIT) Then Break;  //Limited exceeded.

				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for Cinematographers in (CF~Cinema~):|' + PersonURL + '||');

				//Get Name (It must always be present)
				Name := TextBetWeen(ItemList, '>', '</a>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for Cinematographers in (CF~Cinema~):|' + Name + '||');

				//Extract subtext (Role): PVD don't save Role in crew people but is added for Ivek23 as LogMessage compatibility and for afrocuban to fill in complete data for a person in (CF~Cinema~)
				subTextStart := PosFrom('<span', ItemList, curPos);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subTextStart for Cinematographers in (CF~Cinema~):|' + IntToStr(subTextStart));

				If subTextStart > 0 Then Begin
					subTextStart := subTextStart + Length('<span');
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText <span for Cinematographers in (CF~Cinema~):|' + subText + '||');
					subTextStart := PosFrom('>', ItemList, subTextStart);
					subTextStart := subTextStart + Length('>');
					subTextEnd := PosFrom('</span>', ItemList, subTextStart);
					subText := Copy(ItemList, subTextStart, subTextEnd - subTextStart);

					//Clean up subtext by replacing newlines and multiple spaces
					subText := StringReplace(subText, #13#10, ' ', True, False, False);  //Replace newline characters with a space
					subText := StringReplace(subText, #10, ' ', True, False, False);    //Replace line feed characters with a space
					subText := StringReplace(subText, #13#10, ' ', True, False, False);    //Replace carriage return characters with a space
					While Pos('  ', subText) > 0 Do subText := StringReplace(subText, '  ', ' ', True, False, False);  //Replace multiple spaces with a single space

					subText := Trim(subText);
					LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText for Cinematographers in (CF~Cinema~):|' + subText + '||');
				End Else Begin
					subText := '';
				End;  //If subTextStart > 0 Then Begin should end here

				//Update Cinematographers variable
				If Cinematographers <> '' Then Cinematographers := Cinematographers + #13#10;
				If PersonURL <> '' Then Cinematographers := Cinematographers + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ';
				If subText <> '' Then Cinematographers := Cinematographers + subText;

				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results Cinematographer in (CF~Cinema~): #' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||Cinematographer');

				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);  //String which opens the subList data. WEB_SPECIFIC
				index := index + 1;
			End;  //While curPos>0 Do Begin ahould end here
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('>Cinematographer', HTML);

		If Cinematographers <> '' Then fullinfo := fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.e2bf7217-c947-461b-aa58-47e27da1c78e">Cinematography:</link><br>' + Cinematographers + '<br><br>';
		LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with value for Cinematographers in (CF~Cinema~):|' + fullinfo);

		//~Thanks~ in (CF~Cinema~)
		ItemValue14 := '';
		curPos := Pos('="Thanks', HTML);
		If curPos > 0 Then Begin
			curPos := PosFrom('>Edit<', HTML, curPos);
			curPos := curPos + Length('>Edit<');
			endPos := PosFrom('</section>', HTML, curPos);
			ItemList := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList for ~Thanks~ (CF~Cinema~):|' + ItemList + '||');
			curPos := Pos('name-credits--title-text-small', ItemList);
			index := 0;

			While curPos > 0 Do Begin
				If (index > PEOPLE_LIMIT) Then Break;  //Limited exceeded.

				//Get PersonURL (It must always be present)
				PersonURL := BASE_URL_PERSON_PRE + TextBetWeen(ItemList, 'href="/name/', '/?ref_', False, curPos) + BASE_URL_SUF;  //Strings which opens/closes the data. WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results PersonURL for ~Thanks~ in (CF~Cinema~):|' + PersonURL + '||');

				//Get Name (It must always be present
				Name := TextBetWeen(ItemList, '>', '</a>', False, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results Name for ~Thanks~ in (CF~Cinema~):|' + Name + '||');

				//Extract subtext (Role): PVD don't save Role in crew people but is added for Ivek23 as LogMessage compatibility and for afrocuban to fill in complete data for a person in (CF~Cinema~)
				subTextStart := PosFrom('<span', ItemList, curPos);
				If subTextStart > 0 Then Begin
					subTextStart := subTextStart + Length('<span');
					subTextStart := PosFrom('>', ItemList, subTextStart);
					subTextStart := subTextStart + Length('>');
					subTextEnd := PosFrom('</span>', ItemList, subTextStart);
					subText := Trim(Copy(ItemList, subTextStart, subTextEnd - subTextStart))
					//LogMessage('Function ParsePage_IMDBMovieCREDIT - Parse Results subText for ~Thanks~ (CF~Cinema~):|' + subText + '||');|');
				End Else Begin
					subText := '';
				End;  //If subTextStart > 0 Then Begin should end here

				//Update ItemValue14
				If ItemValue14 <> '' Then ItemValue14 := ItemValue14 + #32#32;
				If PersonURL <> '' Then ItemValue14 := ItemValue14 + '<link url="' + PersonURL + '">' + Name + '</link>' + '          ' + subText;

				ItemValue14 := StringReplace(ItemValue14, ' <link url="', #13#10 + '<link url="', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieCREDIT - Get results for ~Thanks~ in (CF~Cinema~): #' + IntToStr(index) + '|' + Name + '|' + subText + '|' + PersonURL + '||');

				curPos := PosFrom('name-credits--title-text-small', ItemList, curPos);
				index := index + 1;
			End;  //While curPos > 0 Do Begin should end here
		End;  //If curPos > 0 Then Begin should end here - curPos := Pos('="Thanks', HTML);

		//Add Fullinfo
		If ItemValue14 <> '' Then
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredits/#amzn1.imdb.concept.name_credit_category.90de891d-6d5e-4711-9179-3eda18bd18e1">Thanks:</link><br>' + ItemValue14
		Else
			Fullinfo := Fullinfo;
		If Length(Fullinfo) > 0 Then Begin
			AddCustomFieldValueByName('Cinema', Fullinfo);
			LogMessage('Function ParsePage_IMDBMovieCREDIT - Get result Movie for Others Crew (CF~Cinema~):|' + Fullinfo + '||');
			LogMessage('Function ParsePage_IMDBMovieCREDIT - fullinfo added with final value - for "Thanks":|' + fullinfo);
		End;  //If Length(Fullinfo) > 0 Then Begin should end here

		If Pos('>Thanks<', HTML) > 0 Then Begin
			AddCustomFieldValueByName('Thank', '<link url="https://www.imdb.com/title/' + MoviesID + '/fullcredit/#amzn1.imdb.concept.name_credit_category.90de891d-6d5e-4711-9179-3eda18bd18e1">Thanks</link>');  //REFRESH THE PAGE AFTER CLICKING THE LINK SINCE THANKS IS AT THE END OF THE PAGE. The browser jumps to that anchor **as soon as the element exists in the DOM**. But because the page is still loading content dynamically (images, scripts, or later sections), the layout can shift and the browser scrolls down/up as it renders. That’s why refreshing fixes it — the browser now knows the full layout when it jumps to the anchor.Because the rest of the page loads **dynamically below it** (IMDb injects content as we scroll). So initially the browser scrolls to that element, but as more content is added below, the viewport gets “pushed,” which is why it jumps up.
			LogMessage('Function ParsePage_IMDBMovieCREDIT only passing point for the branch 1||');
		End Else Begin
			AddCustomFieldValueByName('Thank', 'Thanks section not found on /fullcredists page, please try <link url="https://www.imdb.com/title/' + MoviesID + '/reference">Reference</link> page of the movie for it');
			LogMessage('Function ParsePage_IMDBMovieCREDIT only passing point for the branch 2||');
		End;  //If Pos('>Thanks<', HTML) > 0 Then Begin should end here
			//End;  //If GET_FULL_CREDIT_FROM_REFERENCE And ((Pos('Series', MediaType) = 0) And (Pos('Series', GetFieldValueXML('category')) = 0)) Then Begin should end here
		//End;  //If 0 < curPos Then Begin should end here - it is curPos := Pos('>Photos &amp; videos<', HTML);  //In reference page or curPos := Pos('Crew<', HTML);  //In fullcredits page

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieCREDIT END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieMPAA(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: ~MPAA~
	//Currently, the MPAA catalog numbers are not available on the Parental Guide pages due to the recent redesign. However, you can still find the official Motion Picture Rating (MPA) information in the Content Rating section at the top of the Parental Guide pages for each title.
	//If you're looking for specific MPAA catalog numbers, you might need to refer to other sources or IMDb's older pages before the redesign. IMDb is working on reintroducing the MPAA catalog numbers, so it might be worth checking back in the future.
Var
	curPos, endPos: Integer;
	mpaaValue: String;
	ItemValue1: String;
	mpaaContent, optionValue, categoryName: String;
	mpaaSection, MovieURL, categoryValue, Section: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieMPAA BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);


		//We need first to get MovieURL because we need it to underlink values
		MovieURL := TextBetWeenFirst(HTML, '<meta property="og:url" content="', '">');
		LogMessage('Function ParsePage_IMDBMovieMPAA - ParentalGuide URL initialized:|' + MovieURL);

		mpaaValue := '';

		//Get (CF~IMDbmpaaSummary~)
		curPos := Pos('<select id="jump-to"', HTML);
		If curPos > 0 Then Begin
			//Extract the relevant section for categories
			curPos := PosFrom('<option', HTML, curPos);
			endPos := PosFrom('</select>', HTML, curPos);
			mpaaSection := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieMPAA - Extracted Category section for (CF~IMDbmpaaSummary~):|' + mpaaSection);

			//Parse the options and category names
			curPos := 1;
			mpaaContent := '';
			While PosFrom('<option', mpaaSection, curPos) > 0 Do Begin
				curPos := PosFrom('<option', mpaaSection, curPos) + Length('<option');
				optionValue := TextBetween(mpaaSection, 'value="', '">', False, curPos);
				categoryName := TextBetween(mpaaSection, '">', '</option>', False, curPos);

				//Format the category link
				mpaaContent := mpaaContent + '<link url="' + MovieURL + optionValue + '">' + categoryName + '   •   </link>';

				//Move to the next position
				curPos := PosFrom('</option>', mpaaSection, curPos) + Length('</option>');
			End;  //While PosFrom('<option', mpaaSection, curPos) > 0 Do Begin should end here

			//Remove the trailing "   •   " if it exists and keep the last </link> intact
			If Copy(mpaaContent, Length(mpaaContent) - 13, 7) = '   •   ' Then Begin
				mpaaContent := Copy(mpaaContent, 1, Length(mpaaContent) - 14) + '</link>';
			End;  //If Copy(mpaaContent, Length(mpaaContent) - 13, 7) = '   •   ' Then Begin should end here

			//Combine and format the final result
			mpaaContent := '<link url="' + MovieURL + '#contentRating' + '">Content Ratings Summary: 			</link>' + mpaaContent;

			//Store the result in the custom field
			AddCustomFieldValueByName('IMDbmpaaSummary', mpaaContent);
			LogMessage('Function ParsePage_IMDBMovieMPAA - Stored result for (CF~IMDbmpaaSummary~)');
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieMPAA - Content Rating section for (CF~IMDbmpaaSummary~) not found');
			//Result := prError;  //Set to error if content rating section is not found
		End;  //If curPos > 0 Then Begin should end here - curPos := Pos('<select id="jump-to"', HTML);

		//Get "Content Ratings" (CF~IMDbmpaaDetails~) info
		If Pos('<section data-testid="content-rating" class="ipc-page-section ipc-page-section--base">', HTML) > 0 Then Begin
			curPos := Pos('<section data-testid="content-rating" class="ipc-page-section ipc-page-section--base">', HTML);
			endPos := PosFrom('</section>', HTML, curPos);

			//Extract the relevant section
			Section := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieMPAA - Extract the relevant Section for (CF~IMDbmpaaDetails~):|' + Section + '||');

			curPos := 1;
			ItemValue1 := '';

			//Parse the rating items
			While PosFrom('data-testid="rating-item">', Section, curPos) > 0 Do Begin
				//Move to the label
				curPos := PosFrom('<a class="ipc-metadata-list-item__label ipc-metadata-list-item__label--link" tabindex="0"', Section, curPos) + Length('<a class="ipc-metadata-list-item__label ipc-metadata-list-item__label--link" tabindex="0"');
				categoryName := TextBetween(Section, '>', '</a>', False, curPos);
				LogMessage('Function ParsePage_IMDBMovieMPAA - categoryName after TextBetween for (CF~IMDbmpaaDetails~):|' + categoryName + '||');

				//Move to the value
				curPos := PosFrom('<div class="ipc-html-content-inner-div"', Section, curPos) + Length('<div class="ipc-html-content-inner-div"');
				categoryValue := TextBetween(Section, '>', '</div>', False, curPos);
				//LogMessage('Function ParsePage_IMDBMovieMPAA - categoryValue after TextBetween for (CF~IMDbmpaaDetails~):|' + categoryValue + '||');

				//Format the category link with proper spaces
				ItemValue1 := ItemValue1 + '•   ' + categoryName + ' ' + categoryValue + #13#10;

				//Move to the next item
				curPos := PosFrom('</li>', Section, curPos) + Length('</li>');
			End;  //While PosFrom('data-testid="rating-item">', Section, curPos) > 0 Do Begin should end here

			//Remove the trailing "   •   " if it exists and keep the last </br> intact
			If Copy(ItemValue1, Length(ItemValue1) - 14, 14) = '<br>   •   ' Then Begin
				ItemValue1 := Copy(ItemValue1, 1, Length(ItemValue1) - 14);
			End;  //If Copy(ItemValue1, Length(ItemValue1) - 14, 14) = '<br>   •   ' Then Begin should end here

			AddCustomFieldValueByName('IMDbmpaaDetails', ItemValue1);
			LogMessage('Function ParsePage_IMDBMovieMPAA - (CF~IMDbmpaaDetails~):|' + ItemValue1 + '||');
			LogMessage('Function ParsePage_IMDBMovieMPAA - (CF~IMDbmpaaDetails~):|' + ItemValue1 + '||');
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieMPAA - (CF~IMDbmpaaDetails~) section not found');
			//Result := prError;  //Set to error if IMDbmpaaDetails section is not found
		End;  //If Pos('<section data-testid="content-rating" class="ipc-page-section ipc-page-section--base">', HTML) > 0 Then Begin should end here

		//In the future maybe I will add custom fields for each of the content ratings category found: Sex & Nudity; Violence & Gore; Profanity, Alcohol, Drugs & Smoking; Frightening & Intense Scenes;

		If Not ((Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0)) Then Begin  //Needed when Series.

			LogMessage('Function ParsePage_IMDBMovieMPAA - Is it Series for ~mpaa~ Result:|' + MediaType + 'and ~category~ :|' + GetFieldValueXML('category') + '||');
			//Get ~mpaa~ from IMDB
			curPos := Pos('<ul class="ipc-metadata-list ipc-metadata-list--dividers-none ipc-metadata-list--compact', HTML);
			If curPos > 0 Then Begin
				curPos := PosFrom('<span class="ipc-metadata-list-item__label', HTML, curPos);
				endPos := PosFrom('</li>', HTML, curPos);
				mpaaValue := TextBetWeen(HTML, '<div class="ipc-html-content-inner-div" role="presentation">', '</div>', False, curPos);
				LogMessage('Function ParsePage_IMDBMovieMPAA - Extracted ~mpaa~ section:|' + mpaaValue + '||');
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieMPAA - ~mpaa~ section not found');
				//Result := prError;  //Set to error if ~mpaa~ section is not found
			End;  //If curPos > 0 Then Begin should end here

			//Corrections of string and standardize the result
			mpaaValue := StringReplace(mpaaValue, ' -', '-', False, False, True);  //Avoid spaces around '-'
			mpaaValue := StringReplace(mpaaValue, '- ', '-', False, False, True);  //Avoid spaces around '-'
			If (1 = Pos(':', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, ': ', '', False, False, True);  //Avoid the initial ': ' in ratings
			mpaaValue := StringReplace(mpaaValue, 'Suggested Rating', '. Suggested Rating', False, False, False);  //Avoid union in films with 'Suggested Rating'
			mpaaValue := StringReplace(mpaaValue, 'update: ', '', False, False, True);  //Cleaning value
			mpaaValue := StringReplace(mpaaValue, ': ', '', False, False, True);  //Cleaning value
			curPos := Pos('Edit', mpaaValue);  //Web Specific
			If 0 < curPos Then mpaaValue := Copy(mpaaValue, 0, curPos - 1);
			If (mpaaValue = 'Approved') Then mpaaValue := 'Rated G';
			If (mpaaValue = 'Passed') Then mpaaValue := 'Rated G';
			If (1 = Pos('G', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'G', 'Rated G', False, False, True);
			If (1 = Pos('TV-G', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'TV-G', 'Rated G', False, False, True);
			If (1 = Pos('PG', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'PG', 'Rated PG', False, False, True);
			If (1 = Pos('TV-PG', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'TV-PG', 'Rated PG', False, False, True);
			If (1 = Pos('PG-13', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'PG-13', 'Rated PG-13', False, False, True);
			If (1 = Pos('"PG-13"', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, '"PG-13"', 'Rated PG-13', False, False, True);
			If (1 = Pos('TV-14', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'TV-14', 'Rated PG-13', False, False, True);
			If (1 = Pos('NC-17', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'NC-17', 'Rated NC-17', False, False, True);
			If (1 = Pos('R ', mpaaValue)) Then mpaaValue := StringReplace(mpaaValue, 'R ', 'Rated R ', False, False, True);
			If (mpaaValue = 'R') Then mpaaValue := 'Rated R';
			LogMessage('Function ParsePage_IMDBMovieMPAA - Corrected ~mpaa~ Value:|' + mpaaValue + '||');

			AddFieldValueXML('mpaa', mpaaValue);
			If (Pos(', ', mpaaValue) > 0) Then mpaaValue := StringReplace(mpaaValue, ', ', ', ' + #13#10, False, False, True);  //We need to do this, because when comma is inside string PVD treats as delimiter for MULTISELECT CUSTOM FIELD, and for example for "Rated R for strong bloody violence" and , "sexual content and language." it will store it as 2 values: "Rated R for strong bloody violence" and sexual content and language." but since the split is between words "violence" and "sexual" it will sort "sexual..." part before "... violence" part, like this: "sexual content and language., Rated R for strong bloody violence". Wierd, yes, but true! Original ~mpaa~ is simple text field, so no need for this improvization for it.
			LogMessage('Function ParsePage_IMDBMovieMPAA - before correction ~mpaa~ Value:|' + mpaaValue + '||');
			AddCustomFieldValueByName('IMDB_MPAA', mpaaValue);
			LogMessage('Function ParsePage_IMDBMovieMPAA - Final ~mpaa~ Result:|' + mpaaValue + '||');
		End;  //If Not (Pos('Series', MediaType) > 0) Or Not (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin should end here when Series.

		//Get "Certification" (CF~Certification~) info
		If Pos('<span id="certificates">Certifications</span>', HTML) > 0 Then Begin
			curPos := Pos('<span id="certificates">Certifications</span>', HTML);
			endPos := PosFrom('</section>', HTML, curPos);

			//Extract the relevant section
			Section := Copy(HTML, curPos, endPos - curPos);
			//LogMessage('Function ParsePage_IMDBMovieMPAA - Extract the relevant Section:|' + Section + '||');

			curPos := 1;
			ItemValue1 := '';

			//Parse the certification items
			While PosFrom('"certificates-item">', Section, curPos) > 0 Do Begin
				//Move to the label
				curPos := PosFrom('<span class="ipc-metadata-list-item__label', Section, curPos) + Length('<span class="ipc-metadata-list-item__label');
				curPos := PosFrom('>', Section, curPos);
				categoryName := TextBetween(Section, '>', '</span>', False, curPos);
				LogMessage('Function ParsePage_IMDBMovieMPAA - categoryName after TextBetween:|' + categoryName + '||');

				//Move to the value
				curPos := PosFrom('href="', Section, curPos) + Length('href="');
				categoryValue := TextBetween(Section, '">', '</a>', False, curPos);
				//LogMessage('Function ParsePage_IMDBMovieMPAA - categoryValue after TextBetween:|' + categoryValue + '||');

				//Format the category link with proper spaces
				ItemValue1 := ItemValue1 + '   •   ' + categoryName + ':|' + categoryValue + '<br>';

				//Move to the next item
				curPos := PosFrom('</li>', Section, curPos) + Length('</li>');
			End;  //While PosFrom('"certificates-item">', Section, curPos) > 0 Do Begin should end here

			//Remove the trailing "   •   " if it exists and keep the last </br> intact
			If Copy(ItemValue1, Length(ItemValue1) - 14, 14) = '<br>   •   ' Then Begin
				ItemValue1 := Copy(ItemValue1, 1, Length(ItemValue1) - 14);
			End;  //If Copy(ItemValue1, Length(ItemValue1) - 14, 14) = '<br>   •   ' Then Begin should end here

			AddCustomFieldValueByName('Certification', 'Certification<br>' + ItemValue1);
			LogMessage('Function ParsePage_IMDBMovieMPAA - Certification:<br>' + ItemValue1 + '||');
		End Else Begin
			LogMessage('Function ParsePage_IMDBMovieMPAA - Certification section not found');
			//Result := prError;  //Set to error if Certification section is not found
		End;  //If Pos('<span id="certificates">Certifications</span>', HTML) > 0 Then Begin should end here

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieMPAA END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMoviePLOTKEYWORDS(HTML: String): Cardinal;   //BlockOpen
Var
	curPos, endPos, tagendPos, updateCount: Integer;
	ItemValue, ItemList, MoviesID, MoviesID2, Category, Name: String;
	ItemArray: TWideArray;
	enTitleList, enTitleValue: String;

Begin

	LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS BEGIN======================|');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Extract IMDb MoviesID2 from the URL
		MoviesID2 := TextBetWeenFirst(DownloadURL, BASE_URL_PRE_TRUE, BASE_URL_SUF);
		LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS -  Get result MoviesID2 : https://www.imdb.com/title/' + MoviesID2 + '/keywords' + '||');

		//Extract "MoviesID" info from og:url meta tag in the HTML
		MoviesID := TextBetWeenFirst(HTML, 'og:url" content="https://www.imdb.com/title/', '/keywords');
		LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Get result MoviesID:|' + MoviesID);

		If Not (ReferencePageDownloaded) Then Begin
			//Get ~year~ and the title for the movie as (CF~Title1~) available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations, when Reference page isn't downloaded.
			curPos := Pos('og:title" content="', HTML);
			If Pos('og:title" content="', HTML) > 0 Then Begin
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - curPos after finding og:title for English title as (CF~Title1~):|' + IntToStr(curPos));
				curPos := curPos + Length('og:title" content="');
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - curPos after moving past og:title for English title as (CF~Title1~):|' + IntToStr(curPos));
				endPos := PosFrom('">', HTML, curPos);
				endPos := endPos - 23;  //To move before " (yyyy) - IMDb"
				enTitleList := Copy(HTML, curPos, endPos - curPos);
				AddFieldValueXML('year', TextBetWeenFirst(enTitleList, '(', ')'));
				endPos := endPos - 1;  //To move before " (yyyy) - IMDb"
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - endPos after finding closing double-quote for English title as (CF~Title1~):|' + IntToStr(endPos));

				enTitleList := Copy(HTML, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - enTitleList after extracting content for English title as (CF~Title1~):|' + enTitleList);

				If Pos(')', enTitleList) > 0 Then Begin  //When there is "()" in title, like "The Human Centipede (First Sequence)"
					If PosFrom(') (', enTitleList, 1) > 0 Then Begin  //There is "()" in the title plus leftover that starts with " (" after ")". Test with https://www.imdb.com/title/tt1467304/
						endPos := PosFrom(') (', enTitleList, 1);
						enTitleValue := Copy(enTitleList, 1, endPos - 2);
						LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - enTitleValue after trimming 1st case for English title as (CF~Title1~):|' + enTitleValue);
					End Else Begin
						enTitleValue := Copy(enTitleList, 1, endPos);  //There is no "()" in the title, so only leftover that starts with " (" to be removed
						LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - enTitleValue after trimming 2nd case for English title as (CF~Title1~):|' + enTitleValue);
					End;  //If PosFrom(') (', enTitleList, 1) > 0 Then Begin should end here
				End Else Begin  //If Pos(')', enTitleList) = 0, when there is no "()" in title.
					If PosFrom(' (', enTitleList, 1) > 0 Then Begin  //There is no "()" in the title but there is leftover that starts with " (". Test with https://www.imdb.com/title/tt15412176/
						endPos := PosFrom(' (', enTitleList, 1);
						enTitleValue := Copy(enTitleList, 1, endPos - 1);
						LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - enTitleValue after trimming 1st case for English title as (CF~Title1~):|' + enTitleValue);
					End Else Begin
						enTitleValue := enTitleList;  //There is no "()" in the title and no leftover that starts with " (". Test with https://www.imdb.com/title/tt6263850/
						LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - enTitleValue after trimming 2nd case for English title as (CF~Title1~):|' + enTitleValue);
					End;  //If PosFrom(' (', enTitleList, 1) > 0 Then Begin should end here
				End;  //If Pos(')', enTitleList) > 0 Then Begin should end here

				AddCustomFieldValueByName('Title1', enTitleValue);
				AddFieldValueXML('title', enTitleValue);
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Get result English title as (CF~Title1~):|' + enTitleValue + '||');
			End;  //If Pos('og:title" content="', HTML) > 0 Then Begin should end here
		End;  //If Not (ReferencePageDownloaded) Then Begin should end here

		//Extract "Plot Keywords" ~tags~ And (CF~Plot Keywords~) information
		curPos := Pos('>Keywords<', HTML);
		LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Get result curPos: #' + IntToStr(curPos) + '|');
		If 0 < curPos Then Begin
			endPos := PosFrom('<section data-testid="contribution"', HTML, curPos);
			LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Get result endPos: #' + IntToStr(endPos) + '|');

			Category := TextBetween(HTML, '>', '<', True, curPos);
			LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Get result Category:|' + Category + '||');
		End;  //If 0 < curPos Then Begin should end here

		//Check for "no keywords" message
		If (Pos('It looks like we don' + Chr(39) + 't have any Plot Keywords for this title yet.', HTML) > 0) Then Begin
			LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Found no keywords message. Exiting...');
			Exit;
		End;  //If (Pos('It looks like we don' + Chr(39) + 't have any Plot Keywords for this title yet.', HTML) > 0) Then Begin should end here

		//Find the position of the "Plot keywords" header
		curPos := Pos('>Keywords<', HTML);
		If 0 < curPos Then Begin
			curPos := PosFrom('<a class="ipc-metadata-list-summary-item__t', HTML, curPos);

			//Initialize item list and update counter
			ItemList := '';
			updateCount := 0;

			//Iterate through all <a> tags within the section
			While curPos > 0 Do Begin
				//Stop if the update count reaches the limit
				If updateCount >= PLOTKEYWORDS_LIMIT Then Break;

				//Find the end of the current <a> tag
				tagendPos := PosFrom('</a>', HTML, curPos);

				//Extract the tag content
				ItemValue := TextBetWeen(HTML, '>', '</a>', False, curPos);

				//Append item to the list
				If ItemList <> '' Then ItemList := ItemList + ', ';  //Comma and space separator
				ItemList := ItemList + ItemValue;
				updateCount := updateCount + 1;  //Increment the update counter

				//Move curPos past the </a> tag to find the next one or end loop
				curPos := PosFrom('<a class="ipc-metadata-list-summary-item__t', HTML, tagendPos + Length('</a>'));
			End;  //While curPos > 0 Do Begin should end here

			//Add the entire item list to XML field
			AddFieldValueXML('tags', ItemList);
			If Length(ItemList) > 50 Then
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Added field value for ~tags~:|' + Copy(ItemList, 1, 50) + '... + more')
			Else
				LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Added field value for ~tags~:|' + ItemList);

			//Use extracted MoviesID and Category to form the link for (CF~Plot Keywords~)
			AddCustomFieldValueByName('Plot Keywords', '<link url="https://www.imdb.com/title/' + MoviesID + '/keywords">' + Category + '</link>' + '      ' + Chr(149) + '     Total Plot keywords / Tags (' + IntToStr(updateCount) + ')' + '     ' + Chr(149));
			LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS - Added custom field value for Plot Keywords: <link url="https://www.imdb.com/title/' + MoviesID + '/keywords">' + Category + '</link>' + '      ' + Chr(149) + '     Total Plot keywords / Tags (' + IntToStr(updateCount) + ')' + '     ' + Chr(149));
		End;  //If 0 < curPos Then Begin should end here

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieTECHNICAL(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: ~features~
Var
	curPos, endPos, debug_pos1: Integer;
	ItemValue, ItemList, ItemList2: String;
	ItemValue1, ItemValue0, ItemValue2: String;
	i: Integer;
	ItemValue3, ResultText: String;
	ItemArray: TWideArray;    	//index: Integer;    	//Category1, MoviesID: String;
	arPos: Integer;
	ImageFile: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieTECHNICAL BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Get "Technical Specifications" info
		curPos := Pos('>Technical specifications<', HTML);
		If (curPos = 0) Then Exit;
		endPos := curPos;
		//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Parse results complex:|' + 'aria-label="Go to Edit" aria-disabled="false" href="' + TextBetWeenFirst(HTML, 'aria-label="Go to Edit" aria-disabled="false" href="', ' id="contribute">Contribute to this page</span>') + ' id="contribute">Contribute to this page</span>' + '||');
		//ItemList2 := TextBetWeenFirst(HTML, '>Technical specifications', '<h3 class="ipc-title__text"><span id="contribute">Contribute to this page</span>');  //WEB_SPECIFIC
		//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Parse results (' + IntToStr(curPos) + ', ' + IntToStr(endPos) + ') complex ItemList2:|' + '>Technical specifications' + ItemList2 + '<h3 class="ipc-title__text"><span id="contribute">Contribute to this page</span>' + '||');
		ItemList2 := TextBetWeenFirst(HTML, '>Technical specifications<', 'span id="contribute">Contribute to this page</span>');  //WEB_SPECIFIC
		If (Length(ItemList2) > 0) Then Begin

			//Get "Runtime" (CF~Imdb Runtime1~) info
			curPos := Pos('Runtime', ItemList2);  //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Runtime', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //WEB_SPECIFIC
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', '  (', True, False, True);
				ItemValue := StringReplace(ItemValue, ')   (', ') (', True, False, True);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Runtime1', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result lenght from Original Runtime for (CF~Imdb Runtime1~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Runtime' + '<br>' + ItemValue + '<br><br>';
			End;  //If 2 < curPos Then Begin should end here

			//Get "Sound Mix" info (CF~SILENT_FIELD~), (CF~Imdb SoundMix~) And (CF~Imdb Sound Mix~)
			curPos := Pos('Sound Mix', ItemList2);  //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Sound Mix', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //WEB_SPECIFIC
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result ItemValue for Sound Mix:|' + ItemValue + '||');
				//ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, ',', ' for', True, False, True);
				ItemValue := StringReplace(ItemValue, '   ', ', ', True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Sound Mix:|' + ItemValue + '||');
				ItemValue1 := ItemValue;
				If ItemValue <> '' Then ItemList := ItemList + 'Sound Mix' + '<br>' + ItemValue + '<br><br>';
				If PosFrom('Silent', ItemValue, 1) > 0 Then AddCustomFieldValueByName(SILENT_FIELD, '-1');
				If ItemValue <> '' Then ItemValue1 := StringReplace(ItemValue1, '   ', #13#10, True, False, True);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Sound Mix', RemoveTagsEx0(ItemValue1));
				AddCustomFieldValueByName('Imdb SoundMix', RemoveTagsEx0(ItemValue1));
				AddCustomFieldValueByName('Sound Mix', RemoveTagsEx0(ItemValue1));
				AddCustomFieldValueByName('IMDB - Sound Mix', RemoveTagsEx0(ItemValue1));
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added result for (CF~Imdb Sound Mix~):|' + ItemValue1 + '||');
				ItemValue1 := StringReplace(ItemValue1, '(', ' (', True, False, True);
				AddCustomFieldValueByName('Sound Mix:', RemoveTagsEx0(ItemValue1));
			End;  //If 2 < curPos Then Begin should end here

			//Get "Color" (CF~Imdb_Color~) And (CF~Imdb Color:~) info
			curPos := Pos('Color', ItemList2);              //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Color', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue1 := ItemValue;
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				ItemValue := StringReplace(ItemValue, '   ', ', ' + #13#10, True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting result Color for (CF~Imdb_Color~) And (CF~Imdb Color:~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Color' + '<br>' + ItemValue + '<br><br>';
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb_Color', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb_Color', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color:', ItemValue);
			End;  //If 2 < curPos Then Begin should end here

			//Get "Aspect Ratio" (CF~Imdb AspectRatio~), (CF~Imdb_Aspect Ratio~), (CF~Imdb Aspect Ratio~), (CF~Aspect Ratio~), (CF~Imdb Aspect Ratio:~) And (CF~Aspect Ratio:~) info
			curPos := Pos('Aspect Ratio', ItemList2);                //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Aspect Ratio', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue1 := ItemValue;
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting result initial ItemValue1 := ItemValue:|' + ItemValue + '||');
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting result ItemValue for the ~features~:|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Aspect Ratio' + '<br>' + ItemValue + '<br><br>';
				ItemValue1 := StringReplace(ItemValue1, '/ (high definition)', ' HD', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, 'widescreen', 'WideScreen', True, False, True);
				(* //instead of this, I provided snippet that depends on ":" and not on AR, because in the existing snippet there are many ARs that are missing.
				ItemValue1 := StringReplace(ItemValue1, '16:9 HD', '16 : 9  HD', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, '4:3', '4 : 3', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, '2.55: 1', '2.55 : 1', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, '2.39: 1', '2.39 : 1', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, '2.40:1', '2.40 : 1', True, False, True);
				//*)
				ResultText := '';
				i := 1;

				While i <= Length(ItemValue1) Do Begin
					If ItemValue1[i] = ':' Then Begin
						//Check for spaces before and after the colon
						If (i > 1) And (ItemValue1[i-1] <> ' ') Then ResultText := ResultText + ' ';
						ResultText := ResultText + ':';
						If (i < Length(ItemValue1)) And (ItemValue1[i+1] <> ' ') Then ResultText := ResultText + ' ';
					End Else Begin
						ResultText := ResultText + ItemValue1[i];
					End;  //If ItemValue1[i] = ':' Then Begin should end here
					i := i + 1;
				End;  //While i <= Length(ItemValue1) Do Begin should end here

				ItemValue1 := ResultText;
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ResultText:|' + ItemValue1 + '||');

				//ItemValue1 := StringReplace(ItemValue1, '1(', '1, (', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, '1(', '1 (', True, False, True);
				ItemValue1 := StringReplace(ItemValue1, ')   ', '), ', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue1:|' + ItemValue1 + '||');

				//Remove any text inside parentheses before splitting
				While Pos('(', ItemValue1) > 0 Do Begin
					arPos := Pos('(', ItemValue1);
					ItemValue1 := Copy(ItemValue1, 1, arPos - 1) + Copy(ItemValue1, Pos(')', ItemValue1) + 1, Length(ItemValue1));
				End;  //While Pos('(', ItemValue1) > 0 Do Begin should end here

				//Initialize ItemValue3 to get ARs without descriptions
				ItemValue3 := '';
				ExplodeString(ItemValue1, ItemArray, ',');

				//Iterate through the array and extract only aspect ratios
				For i := 0 To High(ItemArray) Do Begin
					ItemArray[i] := Trim(ItemArray[i]);
					//Check if the entry contains an aspect ratio
					If Pos(':', ItemArray[i]) > 0 Then Begin
						//Append to ItemValue3 if not empty
						If ItemArray[i] <> '' Then Begin
							If ItemValue3 <> '' Then ItemValue3 := ItemValue3 + ', ';
							ItemValue3 := ItemValue3 + ItemArray[i];
						End;  //If ItemArray[i] <> '' Then Begin should end here
					End;  //If Pos(':', ItemArray[i]) > 0 Then Begin should end here
				End;  //For i := 0 To High(ItemArray) Do Begin should end here

				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue before adding to the fields:|' + ItemValue + '||');
				ItemValue1 := StringReplace(ItemValue1, ' , ', ', ', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue1 before adding to the fields:|' + ItemValue1 + '||');
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue3 before adding to the fields:|' + ItemValue3 + '||');

				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Imdb AspectRatio', ItemValue);  //As memo field, ARs with the description each in separate line.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue>0 Then ItemValue for (CF~Imdb AspectRatio~):|' + ItemValue +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Imdb_Aspect Ratio', StringReplace(RemoveTagsEx0(ItemValue1),'   ',',  ',True,False,True));  //As memo field, ARs with the description each as a comma separated list.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue>0 Then StringReplace(RemoveTagsEx0(ItemValue1) for (CF~Imdb_Aspect Ratio~):|' + StringReplace(RemoveTagsEx0(ItemValue1),'   ',',  ',True,False,True) +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Imdb Aspect Ratio', RemoveTagsEx0(ItemValue3));  //As memo field, ARs without the description as comma separated list.------- Imdb Aspect Ratio: lable in my skin
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue >0 Then RemoveTagsEx0(ItemValue3) for (CF~Imdb Aspect Ratio~):|' + StringReplace(RemoveTagsEx0(ItemValue3),'   ',',  ',True,False,True) +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue3 = '' Then Begin
					AddCustomFieldValueByName('Imdb Aspect Ratio', RemoveTagsEx0(ItemValue1));  //As memo field, ARs without the description as comma separated list.-------
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue3 = 0 Then RemoveTagsEx0(ItemValue1) for (CF~Imdb Aspect Ratio~):|' + StringReplace(RemoveTagsEx0(ItemValue1),'   ',',  ',True,False,True) +'||');
				End;  //If ItemValue3 = '' Then Begin should end here
				If ItemValue <> '' Then Begin
					ItemValue := StringReplace(ItemValue, ',', ' +', True, False, True);
					ItemValue := StringReplace(ItemValue, '+ and', '+', True, False, True);  //I need this for my multiselect list custom field, because PVD will split at commas if commas are present in aspect ratio. For example, for ".43 : 1 (IMAX 70 mm: some scenes), 1.78 : 1 (IMAX Blu-ray, 4K UHD, DVD, and Digital: some scenes), 1.90 : 1 (Digital IMAX: some scenes), 2.76 : 1" it will split and list like this: "DVD, 4K UHD, 2.76 : 1, 1.78 : 1 (IMAX Blu-ray, and Digital: some scenes), 1.43 : 1 (IMAX 70 mm: some scenes), 1.90 : 1 (Digital IMAX: some scenes)". Weird but yes - true!
					//ItemValue := StringReplace(ItemValue, #10, ', ', True, False, True);
					ItemValue := StringReplace(ItemValue, #13#10, ', ', True, False, True);
					//ItemValue := StringReplace(ItemValue, #13#10, ', ', True, False, True);
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue>0 Then deleting new line before adding to (CF~Aspect Ratio~):|' + ItemValue +'||');
					AddCustomFieldValueByName('Aspect Ratio', ItemValue);  //As multiselect list field, ARs with the description each in separate line.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue>0 Then ItemValue for (CF~Aspect Ratio~):|' + ItemValue +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Imdb Aspect Ratio:', StringReplace(RemoveTagsEx0(ItemValue1),'   ',',  ',True,False,True));  //As multiselect list field, ARs with the description as a comma separated list.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue >0 Then RemoveTagsEx0(ItemValue1) for (CF~Imdb Aspect Ratio:~) WITH ":" at the end of the field name!:|' + StringReplace(RemoveTagsEx0(ItemValue1),'   ',',  ',True,False,True) +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue <> '' Then Begin
					AddCustomFieldValueByName('Aspect Ratio:', ItemValue3);  //As multiselect list field, ARs without the description as comma separated list.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue >0 Then ItemValue3 for (CF~Aspect Ratio:~) WITH ":" at the end of the field name!:|' + ItemValue3 +'||');
				End;  //If ItemValue <> '' Then Begin should end here
				If ItemValue3 = '' Then Begin
					AddCustomFieldValueByName('Aspect Ratio:', ItemValue1);  //As multiselect list field, ARs without the description as comma separated list.
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue3 = 0 Then ItemValue1 for (CF~Aspect Ratio:~) WITH ":" at the end of the field name!:|' + ItemValue1 +'||');
				End;  //If ItemValue3 = '' Then Begin should end here
				If ItemValue1 <> '' Then Begin
					ItemValue := StringReplace(ItemValue, ', ' + #13#10, ', ', True, False, True);
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - so ItemValue1 >0 Then ItemValue, ItemValue1 and ItemValue3 are added to a memo and multiselect list');
					LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue, ItemValue1 and ItemValue3 that are added to a memo and multiselect list):' + #13#10 + #13#10 + 'ItemValue added as:' + #13#10 + '---------' + #13#10 + ItemValue + '||' + #13#10 + #13#10 + 'ItemValue1 added as' + #13#10 + '---------' + #13#10 + ItemValue1 + '||' + #13#10 + #13#10 + 'ItemValue3 added as' + #13#10 + '---------' + #13#10 + ItemValue3 + '||' + #13#10);
				End;  //If ItemValue1 <> '' Then Begin should end here
			End;  //If 2 < curPos Then Begin should end here

			//Get "Camera" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Camera', ItemList2);                //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Camera', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Camera to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Camera' + '<br>' + ItemValue + '<br><br>';
			End;  //If 2 < curPos Then Begin should end here

			//Get "Laboratory" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Laboratory', ItemList2);  //WEB_SPECIFIC
			If 2 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Laboratory', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Laboratory to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Laboratory' + '<br>' + ItemValue + '<br><br>';
			End;  //If 2 < curPos Then Begin should end here

			//Get "Film Length" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Film Length', ItemList2);                //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue := HTMLValues(HTML, 'Film Length', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Film Length to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Film Length' + '<br>' + ItemValue + '<br><br>';
			End;  //If 0 < curPos Then Begin should end here

			//Get "Negative Format" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Negative Format', ItemList2);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Negative Format', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Negative Format to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Negative Format' + '<br>' + ItemValue + '<br><br>';
			End;  //If 0 < curPos Then Begin should end here

			//Get "Cinematographic Process" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Cinematographic Process', ItemList2);                //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Cinematographic Process', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Cinematographic Process to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Cinematographic Process' + '<br>' + ItemValue + '<br><br>';
			End;  //If 0 < curPos Then Begin should end here

			//Get "Printed Film Format" info to be added to ~features~ And (CF~ImdbTechSpecs~)
			curPos := Pos('Printed Film Format', ItemList2);                //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue := HTMLValues2(HTML, 'Printed Film Format', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', '   ', endPos);  //'<br><br>'
				ItemValue := StringReplace(ItemValue, '   ', #13#10, True, False, True);
				ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Printed Film Format to be added to ~features~ And (CF~ImdbTechSpecs~):|' + ItemValue + '||');
				If ItemValue <> '' Then ItemList := ItemList + 'Printed Film Format' + '<br>' + ItemValue + '<br><br>';
			End;  //If 0 < curPos Then Begin should end here

			//Write to ~features~ And (CF~ImdbTechSpecs~) fields
			If (Length(ItemList) > 0) Then Begin
				AddFieldValueXML('features', ItemList);
				AddCustomFieldValueByName('Imdb-TechSpecs', ItemList);
				AddCustomFieldValueByName('Imdb TechSpecs', ItemList);
				AddCustomFieldValueByName('ImdbTechSpecs', ItemList);  //Ivek23 CustomField ~ImdbTechSpecs~ for ~features~
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added result Movie ~features~ And (CF~ImdbTechSpecs~):|' + ItemList + '||');
			End;  //If (Length(ItemList) > 0) Then Begin should end here
		End;  //If (Length(ItemList2) > 0) Then Begin should end here

		//Get "Runtime" info ~length~ And (CF~Run time~)
		curPos := Pos('>Runtime</span>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := PosFrom('</span>', HTML, curPos + 9) + Length('</span>');
			If 0 < PosFrom('--subText">(', HTML, curPos) Then endPos := PosFrom(')</span>', HTML, curPos + 9) + Length(')</span>');
			ItemValue0 := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting ItemValue0 for ~length~ And (CF~Run time~):|' + ItemValue0 + '||');
			If (0 < Pos('(', ItemValue0)) And (0 < Pos(' min)', ItemValue0)) Then Begin
				curPos := Pos('(', ItemValue0) + Length('(');
				endPos := Pos(' min)', ItemValue0);
				ItemValue0 := Copy(ItemValue0, curPos, endPos - curPos);
			End Else Begin
				curPos := Pos('aria-disabled="false">', ItemValue0) + Length('aria-disabled="false">');
				endPos := Pos('m</span>', ItemValue0);
				ItemValue0 := Copy(ItemValue0, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting ItemValue0 for ~length~ And (CF~Run time~ when the length is less than hour long):|' + ItemValue0 + '||');
			End;  //If (0 < PosFrom('(', ItemValue0, curPos)) And (0 < PosFrom(' min)', ItemValue0, curPos)) Then Begin should end here
			//If ItemValue0 <> '' Then AddCustomFieldValueByName('Run time', ItemValue0);
			LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting final result lenght for ItemValue0 for ~length~ And (CF~Run time~):|' + ItemValue0 + '||');
		End;  //If 0 < curPos Then Begin should end here

		//(*
		//Get "Runtime" ~length~ And (CF~Run time~) info
		curPos := Pos('>Runtime<', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			curPos := PosFrom(' aria-disabled="false">', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result curPos aria-disabled="false"> for ItemValue2:|' + IntToStr(endPos) + '|');
			If 0 < curPos Then curPos := curPos + Length(' aria-disabled="false">');
			//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result curPos + its Length for ItemValue2:|' + IntToStr(endPos) + '|');
			endPos := PosFrom('m</span>', HTML, curPos);
			If Length(Copy(HTML, curPos, endPos - curPos)) < 6 Then ItemValue2 := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result lenght from ItemValue2 for ~length~ And (CF~Run time~):|' + ItemValue2)
			debug_pos1 := Pos('(', ItemValue2);
			If debug_pos1>0 Then ItemValue2 := Copy(ItemValue2, 0, debug_pos1-1);
			LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result lenght from ItemValue2 after debug_pos1 for ~length~ And (CF~Run time~):|' + ItemValue2);
			If Pos('h ', ItemValue2) < 1 Then LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Getting final result lenght for ItemValue2 to be added to ~length~ And (CF~Run time~):|' + ItemValue2 + '||');
		End;  //If 0 < curPos Then Begin should end here
		//*)

		LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Log the file size to know if ~length~ GetFieldValueXML(size) is to be added or not:|' + GetFieldValueXML('size'));
		LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Log the file size to know if ~length~ GetSeriesFieldValueXML(size) is to be added or not:|' + GetSeriesFieldValueXML('size'));
		//If (ItemValue2 = '') And (ItemValue00 <> '') And (((GetFieldValueXML('size') = '') And (GetSeriesFieldValueXML('size') = '')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue0)));
		If (ItemValue2 <> '') And (ItemValue = '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue2)));
		If (ItemValue2 <> '') And (ItemValue0 <> '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue0)));
		If (ItemValue2 = '') And (ItemValue0 <> '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin
			AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue0)));
			AddCustomFieldValueByName('Run time', ItemValue0);
			AddCustomFieldValueByName('Run time1', ItemValue0);
		End;  //If (ItemValue2 = '') And (ItemValue0 <> '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin should end here
		If (ItemValue2 <> '') And (ItemValue0 = '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin
			AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue0)));
			AddCustomFieldValueByName('Run time', ItemValue2);
			AddCustomFieldValueByName('Run time1', ItemValue2);
		End;  //If (ItemValue2 <> '') And (ItemValue0 = '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin should end here
		If (ItemValue2 <> '') And (ItemValue0 <> '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin
			AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue0)));
			AddCustomFieldValueByName('Run time', ItemValue0);
			AddCustomFieldValueByName('Run time1', ItemValue0);
		End;  //If (ItemValue2 <> '') And (ItemValue0 <> '') And (((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0'))) Then Begin should end here
		LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added runtime ItemValue0:|' + ItemValue0);
		//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added runtime ItemValue2:|' + ItemValue2);

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieTECHNICAL END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieAWARDS(HTML:String):Cardinal;//BlockOpen
	//from "downpage-UTF8_NO_BOM-Awards" file
Var
	curPos, endPos, awardPos, categoryPos, recipientPos, yearPos, eventendPos, namePos: Integer;
	Event, Award, AwardName, Category, Recipient, Year: String;
	Won: Boolean;
	ItemValue220: String;

Begin

	LogMessage('Function ParsePage_IMDBPeopleAWARDS BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//(*
		//Get "Awards" Summary (CF~IMDbAwards1~)
		If Pos('<!-- --> <!-- -->', HTML) > 0 Then Begin
			LogMessage('Function ParsePage_IMDBMovieAWARDS - Get result "<!-- --> <!-- -->" for NON PRESENT (CF~IMDbAwards1~):|' + IntToStr(Pos('Top Gap', HTML)) + '|');
			ItemValue220 := ''
		End Else Begin
			curPos := Pos('role="presentation"><div class="ipc-signpost__text" role="presentation"', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue220 := TextBetWeen(HTML, '>', '</div>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				AddCustomFieldValueByName('IMDbAwards1', ItemValue220);
				LogMessage('Function ParsePage_IMDBMovieAWARDS - Get result (CF~IMDbAwards1~):|' + ItemValue220 + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Pos('<!-- --> <!-- -->', HTML) > 0 Then Begin should end here

		//(*
		//Locate the start of the first event section
		curPos := Pos('<section class="ipc-page-section ipc-page-section--base">', HTML);
		LogMessage('Function ParsePage_IMDBMovieAWARDS - curPos after finding first event section:|' + IntToStr(curPos));
		While curPos > 0 Do Begin
			LogMessage('Function ParsePage_IMDBMovieAWARDS - curPos after finding event section:|' + IntToStr(curPos));
			//Extract event name
			curPos := PosFrom('<span id="ev', HTML, curPos);
			If curPos = 0 Then Begin
				LogMessage('Function ParsePage_IMDBMovieAWARDS - Event name not found');
				Break;
			End;  //If curPos = 0 Then Begin should end here
			curPos := PosFrom('>', HTML, curPos) + 1;
			endPos := PosFrom('</span>', HTML, curPos);
			Event := Trim(Copy(HTML, curPos, endPos - curPos));
			LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Event:|' + Event);
			//Move cursor to start processing awards within the event
			curPos := endPos;
			eventendPos := PosFrom('<section class="ipc-page-section ipc-page-section--base">', HTML, curPos);
			If eventendPos = 0 Then eventendPos := Length(HTML);  //Set to the end of HTML if no more events
			//Process awards within the event
			While curPos < eventendPos Do Begin
				//Find next award div within the current event
				awardPos := PosFrom('" data-testid="list-item">', HTML, curPos);
				If (awardPos = 0) Or (awardPos >= eventendPos) Then Begin
					LogMessage('Function ParsePage_IMDBMovieAWARDS - No more awards found in this event');
					Break;
				End;  //If (awardPos = 0) Or (awardPos >= eventendPos) Then Begin should end here
				//LogMessage('Function ParsePage_IMDBMovieAWARDS - curPos after finding award div:|' + IntToStr(awardPos));
				//Extract entire award block
				curPos := awardPos;
				endPos := PosFrom('</div></div></li>', HTML, curPos);
				If endPos = 0 Then Begin
					LogMessage('Function ParsePage_IMDBMovieAWARDS - No closing tag for award div found');
					Break;
				End;  //If endPos = 0 Then Begin should end here
				Award := Copy(HTML, curPos, endPos - curPos);
				curPos := endPos + Length('</div></div></li>');
				//LogMessage('Function ParsePage_IMDBMovieAWARDS - Award Content Extracted Successfully:|' + Award);
				//LogMessage('Function ParsePage_IMDBMovieAWARDS - Award Content Extracted Successfully!');
				//Extract year
				yearPos := PosFrom('<a class="ipc-metadata-list-summary-item__t"', Award, 1);
				If yearPos = 0 Then Begin
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Year not found');
					Continue;
				End;  //If yearPos = 0 Then Begin should end here
				yearPos := PosFrom('>', Award, yearPos) + 1;
				endPos := PosFrom(' ', Award, yearPos);
				Year := Copy(Award, yearPos, endPos - yearPos);
				Year := Trim(Year);
				//LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Year:|' + Year);
				//Determine if the award was won
				Won := PosFrom('Winner', Award, 1) > 0;
				(*
				If Won Then
					LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Won: True')
				Else
					LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Won: False');
				//*)
				//Extract award name
				namePos := PosFrom('<span class="ipc-metadata-list-summary-item__tst">', Award, 1);
				If namePos > 0 Then Begin
					namePos := PosFrom('>', Award, namePos) + 1;
					endPos := PosFrom('</span>', Award, namePos);
					AwardName := Copy(Award, namePos, endPos - namePos);
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Award Name:|' + AwardName);
				End Else Begin
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Award Name not found');
					AwardName := '';
				End;  //If namePos > 0 Then Begin should end here
				//Extract category
				categoryPos := PosFrom('<span class="ipc-metadata-list-summary-item__li awardCategoryName" aria-disabled="false">', Award, 1);
				If categoryPos > 0 Then Begin
					categoryPos := PosFrom('>', Award, categoryPos) + 1;
					endPos := PosFrom('</span>', Award, categoryPos);
					Category := Copy(Award, categoryPos, endPos - categoryPos);
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Category:|' + Category);
				End Else Begin
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Category tag not found');
					Category := '';
				End;  //If categoryPos > 0 Then Begin should end here
				//Extract recipient
				//recipientPos := PosFrom('<a class="ipc-metadata-list-summary-item__li ipc-metadata-list-summary-item__li--link"', Award, endPos + Length('</span>') + 1);
				recipientPos := PosFrom('<a class="ipc-metadata-list-summary-item__li ipc-metadata-list-summary-item__li--link"', Award, endPos + Length('</span>') + 0);
				If recipientPos > 0 Then Begin
					recipientPos := PosFrom('>', Award, recipientPos) + 1;
					endPos := PosFrom('</a>', Award, recipientPos);
					Recipient := Copy(Award, recipientPos, endPos - recipientPos);
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Parsed Recipient:|' + Recipient);
				End Else Begin
					//LogMessage('Function ParsePage_IMDBMovieAWARDS - Recipient tag not found');
					Recipient := '';
				End;  //If recipientPos > 0 Then Begin should end here
				//Add award to the database
				AddAward(Event, AwardName, Category, Recipient, Year, Won);

				(*
				If Won Then
					LogMessage('Function ParsePage_IMDBMovieAWARDS - AddAward executed successfully: Event=' + Event + ', Award=' + AwardName + ', Category=' + Category + ', Recipient=' + Recipient + ', Year=' + Year + ', Won=True')
				Else
					LogMessage('Function ParsePage_IMDBMovieAWARDS - AddAward executed successfully: Event=' + Event + ', Award=' + AwardName + ', Category=' + Category + ', Recipient=' + Recipient + ', Year=' + Year + ', Won=False');
				//*)

			End;  //While curPos < eventendPos Do Begin should end here

			//Move to the next event section
			curPos := eventendPos;
			curPos := PosFrom('<section class="ipc-page-section ipc-page-section--base">', HTML, curPos);
		End;  //While curPos > 0 Do Begin Should end here - curPos := Pos('<section class="ipc-page-section ipc-page-section--base">', HTML);
		LogMessage('Function ParsePage_IMDBMovieAWARDS - All awards added successfully.');
		Result := prFinished;
		//*)

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieAWARDS END=====================||');

	Result := prFinished;
End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieCONNECTIONS(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result:=prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: ~links~
Var
	curPos, endPos, index: Integer;
	debug_pos1: Integer;
	OrigTitle, Title, Category3, Category2, Category1, Category,URL,Year: String;
	CategoryName, ConnectionsList, ItemValue: String;
	optionValue, ItemList, MovieURL: String;
	endSubPos: Integer;

Begin

	LogMessage('Function ParsePage_IMDBMovieCONNECTIONS BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result:=prFinished;  //It will change to prError if any major issue occurs and will exit;
		//Jump to the Movie Connections Category numbers and Category manually links to Connections provider page.

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//We need first to get MovieURL because we need it to underlink values
		MovieURL := TextBetWeenFirst(HTML, '<meta property="og:url" content="', '">');
		LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Main URL initialized:|' + MovieURL);

		//Get (CF~Connections~) info
		If Pos('>Connections<', HTML) > 0 Then Begin
			LogMessage('===Function ParsePage_IMDBMovieCONNECTIONS - Starting Connections Parsing ===');

			curPos := Pos('>Connections<', HTML);
			LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for "Connections" section found at:|' + IntToStr(curPos));
			If Pos('It looks like we don'+Chr(39)+'t have any Connections for this title yet.', HTML) > 0 Then Begin
				Category1 := 'No Connections';
				Category3 := '';
				AddCustomFieldValueByName('Connections', Category1);
				AddCustomFieldValueByName('Connect', Category3);
				LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - No Connections found for this title');
			End Else Begin
				//Extract the relevant section for categories
				If PosFrom('<span class="ipc-simple-select__container" data-testid="jumpTo">', HTML, curPos) > 0 Then Begin
					curPos := PosFrom('<span class="ipc-simple-select__container" data-testid="jumpTo">', HTML, curPos);
					endPos := PosFrom('</select></span></span>', HTML, curPos);
					Category2 := Copy(HTML, curPos, endPos - curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Extracted Category2 section:|' + Category2);

					//Parse the options and category names
					curPos := 1;
					Category1 := '';
					While PosFrom('<option', Category2, curPos) > 0 Do Begin
						curPos := PosFrom('<option', Category2, curPos) + Length('<option');
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos at option tag:|' + IntToStr(curPos));

						optionValue := TextBetween(Category2, 'value="', '">', False, curPos);
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Extracted optionValue:|' + optionValue);

						categoryName := TextBetween(Category2, '">', '</option>', False, curPos);
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Extracted categoryName:|' + categoryName);

						//Format the category link
						Category1 := Category1 + '<link url="' + MovieURL + optionValue + '">' + categoryName + '   •   </link>';
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Formatted and added category link:|' + '<link url="' + MovieURL + optionValue + '">' + categoryName + '   •   </link>');

						//Move to the next position
						curPos := PosFrom('</option>', Category2, curPos) + Length('</option>');
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Moved curPos to next option tag:|' + IntToStr(curPos));
					End;  //While PosFrom('<option', Category2, curPos) > 0 Do Begin should end here

					//Remove the trailing "   •   " if it exists and keep the last </link> intact
					If Copy(Category1, Length(Category1) - 13, 7) = '   •   ' Then Begin
						Category1 := Copy(Category1, 1, Length(Category1) - 14) + '</link>';
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Removed trailing "   •   " and kept last </link> in Category1');
					End;  //If Copy(Category1, Length(Category1) - 13, 7) = '   •   ' Then Begin should end here

					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Final Category1 before combining:|' + Category1);

					//Combine and format the final result
					Category1 := '<link url="' + MovieURL + '">Connections:                               </link>' + Category1;
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Combined and formatted final Category1:|' + Category1);

					//Store the result in the custom field
					AddCustomFieldValueByName('Connections', Category1);
					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Stored result in (CF~Connections~)');

					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Final Category1 stored:|' + Category1);
					LogMessage('===Function ParsePage_IMDBMovieCONNECTIONS - Finished (CF~Connections~) Parsing ===');
				End;  //If PosFrom('<span class="ipc-simple-select__container" data-testid="jumpTo">', HTML, curPos) > 0 Then Begin should end here

				//Get category names to (CF~Connect~)
				If Pos('>Connections<', HTML) > 0 Then Begin
					LogMessage('=== Function ParsePage_IMDBMovieCONNECTIONS - Starting (CF~Connect~) Parsing ===');

					curPos := Pos('>Connections<', HTML);
					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for "Connections" section found at:|' + IntToStr(curPos));

					endPos := PosFrom('<div class="nas-slot">', HTML, curPos);
					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Connections" section set at:|' + IntToStr(endPos));

					Category3 := '';
					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initialized Category3.');

					//Loop through categories
					While curPos < endPos Do Begin
						curPos := PosFrom('<h3 class="ipc-title__text">', HTML, curPos);
						If curPos = 0 Then Break;
						curPos := curPos + Length('<h3 class="ipc-title__text">');
						curPos := PosFrom('">', HTML, curPos);
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Found <span id= at curPos:|' + IntToStr(curPos));

						//Extract category name
						categoryName := TextBetween(HTML, '">', '</span><svg xmlns', False, curPos);
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Extracted categoryName for (CF~Connect~):|' + categoryName);

						//Append category name to result
						If categoryName <> '' Then Begin
							Category3 := Category3 + categoryName + ', ';
							//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Appended categoryName to Category3 for (CF~Connect~):|' + categoryName);
						End;  //If categoryName <> '' Then Begin should end here
					End;  //While curPos < endPos Do Begin should end here
					//(*
					//Remove the trailing ", " if it exists
					If Copy(Category3, Length(Category3) - 1, 2) = ', ' Then Begin
						Category3 := Copy(Category3, 1, Length(Category3) - 2);
						//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Removed trailing ", " from Category3 for (CF~Connect~)');
					End;  //If Copy(Category3, Length(Category3) - 1, 2) = ', ' Then Begin should end here
					//*)
					If Category3 = '0' Then Begin
						Category3 := '';
						LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Category3 was "0", set to empty string');
					End;  //If Category3 = '0' Then Begin should end here
					(*
					If Pos('It looks like we don'+Chr(39)+'t have any Connections for this title yet.', HTML) > 0 Then Begin
						Category3 := 'No Connections';
						LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - No Connections found for this title');
					End;  //If Pos('It looks like we don'+Chr(39)+'t have any Connections for this title yet.', HTML) > 0 Then Begin should end here
					//*)
					AddCustomFieldValueByName('Connect', Category3);
					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Stored result in (CF~Connect~):|' + Category3);

					LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Finished (CF~Connect~) processing');
					LogMessage('===Function ParsePage_IMDBMovieCONNECTIONS - Finished (CF~Connect~) Parsing ===');
				End;  //If Pos('>Connections<', HTML) > 0 Then Begin should end here
			End;  //If Pos('It looks like we don'+Chr(39)+'t have any Connections for this title yet.', HTML) > 0 Then Begin should end here
		End;  //If Pos('>Connections<', HTML) > 0 Then Begin should end here

		//Get "Connections" tree in PVD
		//Movie Connections Category for the Connections Title of Category
		//Get "Connections" info
		curPos:=Pos('>Connections<',HTML);
		If (curPos = 0) Then Exit;
		endPos:=curPos;

		//Title of Movies for the Connections Category into the PVD database
		If (GET_COMPLEX_CONNECTIONS) Then Begin
			//Get "Alternate-language version of" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="alternate_language_version_of">Alternate-language version of</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Alternate-language version of":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Alternate-language version of';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Alternate language version of":|' + Category + '||');

				//Set endPos for the entire "Alternate-language version of" section
				endPos := PosFrom('<div data-testid="sub-section-alternate_language_version_of"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Alternate-language version of" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Alternate-language version of" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Alternate-language version of":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Alternate-language version of":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Alternate-language version of":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Alternate-language version of":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Alternate-language version of":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Alternate-language version of":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Alternate-language version of":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Alternate-language version of":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Alternate-language version of":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Alternate-language version of":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Alternate-language version of":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Alternate-language version of": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Alternate-language version of":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here

			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Alternate-language version of".');
		End;  //If (GET_COMPLEX_CONNECTIONS) Then Begin should end here

		//(*
		If (GET_SIMPLE_CONNECTIONS) Then Begin
			//Get "Edited from" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="edited_from">Edited from</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Edited from":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Edited from';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Edited from":|' + Category + '||');

				//Set endPos for the entire "Edited from" section
				endPos := PosFrom('<div data-testid="sub-section-edited_from"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Edited from" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Edited from" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Edited from":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Edited from"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Edited from":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Edited from":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Edited from":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Edited from":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Edited from":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Edited from":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Edited from":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Edited from":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Edited from":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Edited from": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Edited from":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Edited from".');

			//(*
			//Get "Edited into" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="edited_into">Edited into</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Edited into":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Edited into';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Edited into":|' + Category + '||');

				//Set endPos for the entire "Edited into" section
				endPos := PosFrom('<div data-testid="sub-section-edited_into"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Edited into" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Edited into" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Edited into":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Edited into"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Edited into":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Edited into":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Edited into":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Edited into":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Edited into":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Edited into":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Edited into":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Edited into":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Edited into":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Edited into": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Edited into":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Edited into".');
			//*)

			//(*
			//Get "Featured in" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="featured_in">Featured in</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Featured in":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Featured in';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Featured in":|' + Category + '||');

				//Set endPos for the entire "Featured in" section
				endPos := PosFrom('<div data-testid="sub-section-featured_in"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Featured in" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Featured in" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Featured in":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Featured in":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Featured in":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Featured in":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Featured in":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Featured in":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Featured in":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Featured in":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Featured in":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Featured in":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Featured in":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Featured in": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Featured in":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Featured in".');
			//*)

			//(*
			//Get "Features" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="features">Features</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Features":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Features';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Features":|' + Category + '||');

				//Set endPos for the entire "Features" section
				endPos := PosFrom('<div data-testid="sub-section-features"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Features" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Features" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Features":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Features"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Features":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Features":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Features":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Features":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Features":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Features":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Features":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Features":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Features":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results  for "Features": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Features":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Features".');
			//*)
		End;  //If (GET_SIMPLE_CONNECTIONS) Then Begin should end here

		//(*
		If (GET_COMPLEX_CONNECTIONS) Then Begin
			//Get "Followed by" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="followed_by">Followed by</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Followed by":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Followed by';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Followed by":|' + Category + '||');

				//Set endPos for the entire "Followed by" section
				endPos := PosFrom('<div data-testid="sub-section-followed_by"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Followed by" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Followed by" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Followed by":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Followed by":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Followed by":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Followed by":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Followed by":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Followed by":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Followed by":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Followed by":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Followed by":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Followed by":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Followed by":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Followed by": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Followed by":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Followed by".');

			//(*
			//Get "Follows" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="follows">Follows</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Follows":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Follows';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Follows":|' + Category + '||');

				//Set endPos for the entire "Follows" section
				endPos := PosFrom('<div data-testid="sub-section-follows"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Follows" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Follows" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Follows":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Follows":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Follows":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Follows":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Follows":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Follows":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Follows":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Follows":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Follows":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Follows":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Follows":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Follows": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Follows":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Follows".');
			//*)
		End;  //If (GET_COMPLEX_CONNECTIONS) Then Begin should end here
		//*)

		If (GET_SIMPLE_CONNECTIONS) Then Begin
			//Get "Referenced in" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="referenced_in">Referenced in</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Referenced in":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Referenced in';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Referenced in":|' + Category + '||');

				//Set endPos for the entire "Referenced in" section
				endPos := PosFrom('<div data-testid="sub-section-referenced_in"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Referenced in" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Referenced in" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Referenced in":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Referenced in":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Referenced in":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Referenced in":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Referenced in":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Referenced in":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Referenced in":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Referenced in":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Referenced in":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Referenced in":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Referenced in":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Referenced in": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Referenced in":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Referenced in".');

			//(*
			//Get "References" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="references">References</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "References":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'References';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "References":|' + Category + '||');

				//Set endPos for the entire "References" section
				endPos := PosFrom('<div data-testid="sub-section-references"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "References" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "References" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "References":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "References":' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "References":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "References":|' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "References":|' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "References":|' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "References":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "References":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "References":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "References":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "References":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "References": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "References":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here

			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "References".');
			//*)

			//(*
			//Get "Remade as" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="remade_as">Remade as</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Remade as":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Remade as';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Remade as":|' + Category + '||');

				//Set endPos for the entire "Remade as" section
				endPos := PosFrom('<div data-testid="sub-section-remade_as"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Remade as" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Remade as" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Remade as":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Remade as"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Remade as":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Remade as":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Remade as":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Remade as":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Remade as":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Remade as":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Remade as":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Remade as":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Remade as":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Remade as": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Remade as":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Remade as".');
			//*)

			//(*
			//Get "Remake of" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="remake_of">Remake of</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Remake of":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Remake of';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Remake of":|' + Category + '||');

				//Set endPos for the entire "Remake of" section
				endPos := PosFrom('<div data-testid="sub-section-remake_of"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Remake of" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Remake of" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Remake of":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Remake of"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Remake of":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Remake of":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Remake of":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Remake of":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Remake of":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Remake of":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Remake of":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Remake of":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Remake of":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Remake of": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Remake of":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Remake of".');
			//*)

			//(*
			//Get "Spin-off" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="spin_off">Spin-off</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Spin-off":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Spin-off';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Spin-off":|' + Category + '||');

				//Set endPos for the entire "Spin-off" section
				endPos := PosFrom('<div data-testid="sub-section-spin_off"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Spin-off" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Spin-off" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Spin-off":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Spin-off"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Spin-off":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Spin-off":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Spin-off":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Spin-off":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Spin-off":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Spin-off":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Spin-off":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Spin-off":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Spin-off":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Spin-off": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Spin-off":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Spin-off".');
			//*)

			//(*
			//Get "Spin-off from" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="spin_off_from">Spin-off from</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Spin-off from":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Spin-off from';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Spin-off from":|' + Category + '||');

				//Set endPos for the entire "Spin-off from" section
				endPos := PosFrom('<div data-testid="sub-section-spin_off_from"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Spin-off from" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Spin-off from" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Spin-off from":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Spin-off from"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Spin-off from":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Spin-off from":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Spin-off from":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Spin-off from":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Spin-off from":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Spin-off from":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Spin-off from":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Spin-off from":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Spin-off from":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Spin-off from": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Spin-off from":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Spin-off from".');
			//*)

			//(*
			//Get "Spoofed in" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="spoofed_in">Spoofed in</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Spoofed in":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Spoofed in';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Spoofed in":|' + Category + '||');

				//Set endPos for the entire "Spoofed in" section
				endPos := PosFrom('<div data-testid="sub-section-spoofed_in"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Spoofed in" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Spoofed in" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Spoofed in":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Spoofed in"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Spoofed in":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Spoofed in":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Spoofed in":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Spoofed in":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Spoofed in":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Spoofed in":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Spoofed in":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Spoofed in":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Spoofed in":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Spoofed in": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Spoofed in":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Spoofed in".');

			//(*
			//Get "Spoofs" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="spoofs">Spoofs</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Spoofs":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Spoofs';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Spoofs":|' + Category + '||');

				//Set endPos for the entire "Spoofs" section
				endPos := PosFrom('<div data-testid="sub-section-spoofs"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Spoofs" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Spoofs" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Spoofs":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Spoofs"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Spoofs":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Spoofs":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Spoofs":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Spoofs":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Spoofs":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Spoofs":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Spoofs":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Spoofs":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Spoofs":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Spoofs": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Spoofs":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Spoofs".');
			//*)

		End;  //If (GET_SIMPLE_CONNECTIONS) Then Begin should end here
		//*)

		//(*
		If (GET_COMPLEX_CONNECTIONS) Then Begin
			//Get "Version of" info
			curPos := 1;  //Start from the Beginning of the HTML
			curPos := PosFrom('<span id="version_of">Version of</span>', HTML, curPos);
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Initial curPos for "Version of":|' + IntToStr(curPos));
			If 0 < curPos Then Begin
				//Extract the category name directly since we have the position
				Category := 'Version of';
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get results of Category for "Version of":|' + Category + '||');

				//Set endPos for the entire "Version of" section
				endPos := PosFrom('<div data-testid="sub-section-version_of"', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endPos for "Version of" section:|' + IntToStr(endPos));

				//Adjust endPos to the end of the actual section (last relevant div)
				endPos := PosFrom('</div></section>', HTML, endPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Adjusted endPos for full "Version of" section:|' + IntToStr(endPos));

				//Start parsing entries
				curPos := PosFrom('<a href="/title/', HTML, curPos);
				//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos for the first title link for "Version of":|' + IntToStr(curPos));
				index := 1;

				While (curPos > 0) And (curPos < endPos) Do Begin
					If (index > CONNECT_LIMIT) Then Break;

					endSubPos := PosFrom('">', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get index # for "Version of"' + IntToStr(index) + '||');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for title link for "Version of":|' + IntToStr(endSubPos));

					URL := 'http://www.imdb.com/title/' + TextBetween(HTML, '<a href="/title/', '?', False, curPos);  //It mustn't be https otherwise each time the script is ran it will add duplicate of existing movie connection
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result URL for "Version of":' + URL + ' ||');

					Title := TextBetween(HTML, '">', '</a>', False, curPos);
					If Title = '0' Then Title := '';
					If Title = '' Then Title := '(Empty)';
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Title for "Version of":' + Title + '||');

					Year := TextBetween(HTML, '(', ')', False, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result Year for "Version of":' + Year + '||');

					curPos := PosFrom('</a>', HTML, endSubPos) + Length('</a>');
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - curPos after </a> for "Version of":|' + IntToStr(curPos));

					endSubPos := PosFrom('</div>', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - endSubPos for original title for "Version of":|' + IntToStr(endSubPos));

					OrigTitle := RemoveTags(Copy(HTML, curPos, endSubPos - curPos), False);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after RemoveTags for "Version of":|' + OrigTitle + ' ||');
					OrigTitle := StringReplace(OrigTitle, ')(', ') (', True, False, True);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Get OrigTitle after StringReplace for "Version of":|' + OrigTitle + ' ||');
					debug_pos1 := Pos('    ', OrigTitle);
					If debug_pos1 > 0 Then OrigTitle := Copy(OrigTitle, 1, debug_pos1 - 1);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -  Get result OrigTitle for "Version of":' + OrigTitle + '||');

					//If Pos('(Empty)', Title) Or Pos('(TV Episode)', OrigTitle) Or Pos('(TV Series)', OrigTitle) Or Pos('(TV Mini-Series)', OrigTitle) Or Pos('(Short)', OrigTitle) Or Pos('(TV Short)', OrigTitle) Or Pos('(TV Special)', OrigTitle) Or Pos('(Video Game)', OrigTitle) Or Pos('(Video)', OrigTitle) < 1 Then
					AddConnection(Title, Title + ' ' + OrigTitle, Category, URL, Year);

					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS -   Get results for "Version of": #' + IntToStr(index) + '|' + Title + '|' + Title + ' ' + OrigTitle + '|' + Category + '|' + URL + '|' + Year + '||');
					curPos := PosFrom('<a href="/title/', HTML, curPos);
					//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Next curPos for title link for "Version of":|' + IntToStr(curPos));
					index := index + 1;
				End;  //While (curPos > 0) And (curPos < endPos) Do Begin should end here
			End Else Begin
				curPos := endPos;
			End;  //If 0 < curPos Then Begin should end here
			//LogMessage('Function ParsePage_IMDBMovieCONNECTIONS - Function execution complete for "Version of".');
		End;  //If (GET_COMPLEX_CONNECTIONS) Then Begin should end here
		//*)

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieCONNECTIONS END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMoviePLOTSUMMARY(HTML: String): Cardinal;//BlockOpen
Var
	curPos, endPos, debug_pos1: Integer;
	ItemValue, MoviesID: String;
	Category, Name: String;

Begin

	LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Check if any of the plot summary options are set to True
		If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS Or GET_FULL_PLOT) Then Begin
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Skipping ParsePage_IMDBMoviePLOTSUMMARY parsing as no relevant options are set.');
			Result := prFinished;  //Or any appropriate value indicating no parsing
			Exit;
		End;  //If Not (GET_FULL_PLOTSUMMARY Or GET_FULL_PLOT_SUMMARY Or GET_FULL_PLOT__SUMMARY Or GET_FULL_PLOT_SYNOPSIS Or GET_FULL_PLOT) Then Begin should end hee

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get (CF~IMDB Plot Summaries~) from "Summaries" section - all
		curPos := Pos('>Summaries<', HTML);
		LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - CurPos for ~description~:|' + IntToStr(curPos) + '||');  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			ItemValue := HTMLValues2(HTML, '>Summaries<', '</section>', '<div class="ipc-html-content ipc-html-content--base', '</div>', '<br><br>', curPos);
			AddCustomFieldValueByName('IMDB Plot Summaries', ItemValue);
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result (CF~IMDB Plot Summaries~):|' + #13#10 + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here

		//Get "MoviesID" info
		MoviesID := 'https://www.imdb.com' + TextBetWeenFirst(HTML, '"og:url" content="https://www.imdb.com', '/">');
		LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result MoviesID:|' + MoviesID);

		//~Plot~ info
		curPos := Pos('>Plot<', HTML);
		If (curPos = 0) Then Exit;
		endPos := curPos;

		//Get "Plot" info
		curPos := Pos('>Plot<', HTML);
		If curPos > 0 Then Begin
			endPos := curPos;
			Category := TextBetween(HTML, '>', '<', True, curPos);
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result Category:|' + Category + '||');
			Name := TextBetween(HTML, '<label for="jump-to" class="ipc-simple-select__label">', '</select>', True, curPos);
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result Name:|' + Name + '||');
			Name := StringReplace(Name, 'Jump to', #160#160#9679#160#160, True, False, True);
			Name := StringReplace(Name, ')', ')  ', True, False, True);
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result Name1:|' + Name + '||');
			If GET_FULL_PLOT Then AddCustomFieldValueByName('Plot Summary', '<link url="' + MoviesID + '">' + Category + ' Summary</link>' + Name);
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result Plot Summary:|' + '<link url="' + MoviesID + '">' + Category + ' Summary</link>' + Name + '||');
		End;  //If curPos > 0 Then Begin should end here

		//~Synopsis~
		If (Pos('It looks like we don' + Chr(39) + 't have any plot for this title yet.', HTML) > 0) Then Begin
			LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - No plot information available for this title.||');
			//Skip plot and synopsis processing
		End Else Begin
			//Check for synopsis presence
			If Pos('>Plot<', HTML) > 0 Then Begin
				If (Pos('It looks like we don' + Chr(39) + 't have any synopsis for this title yet.', HTML) > 0) Then Begin
					LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - No synopsis information available for this title.||');
					//Skip synopsis processing
				End Else Begin
					curPos := Pos('>Plot<', HTML);
					endPos := curPos;
					If GET_FULL_PLOT_SYNOPSIS Then Begin
						//Get (CF~IMDb Synopsis~) from "Synopsis" section - full
						curPos := Pos('>Synopsis<', HTML);
						LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - CurPos for ~synopsis~:|' + IntToStr(curPos) + '||');  //WEB_SPECIFIC
						If 0 < curPos Then Begin
							ItemValue := HTMLValues2(HTML, '>Synopsis<', '</section>', '<div class="ipc-html-content ipc-html-content--base', '</div>', '<br><br>', curPos);
							//LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get ItemValue result (CF~IMDb Synopsis~):|' + #13#10 + ItemValue + '||');
							If Length(ItemValue) > 10000 Then Begin  //It has to be like this because huge synopsis can hangs the record
								ItemValue := Copy(ItemValue, 1, 10000);
								AddCustomFieldValueByName('IMDb Synopsis', ItemValue + '... (only first 10k characters added. Please visit the site for the whole summaries)');
								AddFieldValueXML('comment', ItemValue + '... (only first 10k characters added. Please visit the site for the whole summaries)');
								LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result (CF~IMDb Synopsis~):|' + #13#10 + ItemValue + '||');
							End Else Begin
								AddCustomFieldValueByName('IMDb Synopsis', ItemValue);
								AddFieldValueXML('comment', ItemValue);
								LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY - Get result (CF~IMDb Synopsis~):|' + #13#10 + ItemValue + '||');
							End;  //If Length(ItemValue) > 10000 Then Begin should end here
						End;  //If 0 < curPos Then Begin should end here
					End;  //If GET_FULL_PLOT_SYNOPSIS Then Begin should end here
				End;  //If (Pos('It looks like we don' + Chr(39) + 't have any synopsis for this title yet.', HTML) > 0) Then Begin should end here
			End;  //If Pos('>Plot<', HTML) > 0 Then Begin should end here
		End;  //If (Pos('It looks like we don' + Chr(39) + 't have any plot for this title yet.', HTML) > 0) Then Begin should end here

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMoviePLOTSUMMARY END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieCOMPANYCREDITS(HTML: String): Cardinal;//BlockOpen
Var
	curPos, endPos, tmpPos: Integer;
	ItemValue, ItemValue140, ItemList, company, subText, subRegion, subType, singleValue, MoviesID: String;
	Category, Name: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Check if any of the plot summary options are set to True
		If Not (GET_FULL_COMPANYCREDITS) Then Begin
			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Skipping ParsePage_IMDBMovieCOMPANYCREDITS parsing as no relevant options are set.');
			Result := prFinished;  //Or any appropriate value indicating no parsing
			Exit;
		End;  //If Not (GET_FULL_COMPANYCREDITS) Then Begin should end here

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get "MoviesID" info
		MoviesID := 'https://www.imdb.com' + TextBetWeenFirst(HTML, '"og:url" content="https://www.imdb.com', '/">');
		LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get result MoviesID:|' + MoviesID);

		//(CF~IMDb_CompanyCredits_Summary~) info
		curPos := Pos('>Company credits<', HTML);
		If (curPos = 0) Then Exit;
		endPos := curPos;

		//Get (CF~IMDb_CompanyCredits_Summary~) info
		curPos := Pos('>Company credits<', HTML);
		If curPos > 0 Then Begin
			endPos := curPos;
			Category := TextBetween(HTML, '>', '<', True, curPos);
			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get result Category:|' + Category + '||');
			Name := TextBetween(HTML, '<label for="jump-to" class="ipc-simple-select__label">', '</select>', True, curPos);
			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get result Name:|' + Name + '||');
			Name := StringReplace(Name, 'Jump to', #160#160#9679#160#160, True, False, True);
			Name := StringReplace(Name, ')', ')  ', True, False, True);
			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get result Name1:|' + Name + '||');
			AddCustomFieldValueByName('IMDb_CompanyCredits_Summary', '<link url="' + MoviesID + '">' + Category + ' Summary</link>' + Name);
			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get result IMDb_CompanyCredits_Summary:|' + '<link url="' + MoviesID + '">' + Category + ' Summary</link>' + Name + '||');
		End;  //If curPos > 0 Then Begin should end here

		//Get ~studio~ "Production Companies" (single or multiple values in a comma separated list)
		curPos := Pos('data-testid="sub-section-production"', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := PosFrom('</section>', HTML, curPos);
			ItemList := TextBetween(HTML, 'data-testid="sub-section-production"', '</section>', False, curPos);
			ItemValue := '';
			curPos := 1;
			While PosFrom('<li role="presentation"', ItemList, curPos) > 0 Do Begin
				curPos := PosFrom('<li role="presentation"', ItemList, curPos);
				endPos := PosFrom('</li>', ItemList, curPos);
				ItemValue140 := Copy(ItemList, curPos, endPos - curPos);

				tmpPos := 1;
				company := TextBetween(ItemValue140, 'aria-label="', '"', False, tmpPos);
				subText := TextBetween(ItemValue140, '<span class="ipc-metadata-list-item__list-content-item--subText">', '</span>', False, tmpPos);

				If ItemValue <> '' Then ItemValue := ItemValue + ', ';
				If subText <> '' Then
					ItemValue := ItemValue + company + ' ' + subText
				Else
					ItemValue := ItemValue + company;

				curPos := endPos + 4;
			End;  //While PosFrom('<li role="presentation"', ItemList, curPos) > 0 Do Begin should end here

			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get ItemValue Studio/Production Co multiple:|' + ItemValue + '||');
			If Not (MainPageDownloaded) Then AddFieldValueXML('studio', ItemValue);
			If ItemValue <> '' Then Begin
				ItemValue := 'STUDIO RELEASE BY' + #13#10 + ItemValue;
				AddCustomFieldValueByName('IMDb Studio2', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get results Studio/Production Co multiple:|' + ItemValue + '||');
			End;  //If ItemValue <> '' Then Begin should end here
		End;  //If 0 < curPos Then Begin should end here

		//*)
		//Get (CF~Distributors~) (multiple values in a list)
		curPos := Pos('data-testid="sub-section-distribution"', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := PosFrom('</section>', HTML, curPos);
			ItemList := TextBetween(HTML, 'data-testid="sub-section-distribution"', '</section>', False, curPos);
			ItemValue := '';
			curPos := 1;

			While PosFrom('<li role="presentation"', ItemList, curPos) > 0 Do Begin
				curPos := PosFrom('<li role="presentation"', ItemList, curPos);
				endPos := PosFrom('</li>', ItemList, curPos);
				ItemValue140 := Copy(ItemList, curPos, endPos - curPos);

				tmpPos := 1;
				company   := TextBetween(ItemValue140, 'aria-label="', '"', False, tmpPos);
				subRegion := TextBetween(ItemValue140, '<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">', '</span>', False, tmpPos);
				subType   := TextBetween(ItemValue140, '<span class="ipc-metadata-list-item__list-content-item--subText">', '</span>', False, tmpPos);

				//Build single distributor string
				singleValue := company + ' ';
				If subRegion <> '' Then singleValue := singleValue + subRegion;
				If subType   <> '' Then singleValue := singleValue + ' ' + subType;

				//Append to cumulative list with newline separator
				If ItemValue <> '' Then ItemValue := ItemValue + #13#10;
				ItemValue := ItemValue + singleValue;

				curPos := endPos + 4;
			End;  //While PosFrom('<li role="presentation"', ItemList, curPos) > 0 Do Begin should end here

			LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS - Get results (CF~Distributors~):|' + ItemValue + '||');
			AddCustomFieldValueByName('Distributors', ItemValue);
		End;  //If 0 < curPos Then Begin should end here

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

LogMessage('Function ParsePage_IMDBMovieCOMPANYCREDITS END=====================||');

End;//BlockClose
//*)

//(*
Function ParsePage_IMDBMovieCRITICREVIEWS(HTML: String): Cardinal;//BlockOpen
Var
	curPos, endPos: Integer;
	ItemValue: String;

Begin

	LogMessage('Function ParsePage_IMDBMovieCRITICREVIEWS BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Get ~Metascore~
		endPos := Pos('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML);
		If endPos > 0 Then Begin
			curPos := PrevPos('">', HTML, endPos) + Length('">');
			endPos := PosFrom('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML, curPos) + 2;
			ItemValue := Copy(HTML, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieCRITICREVIEWS - Get result Metascore original:|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, '0</', '.0', True, False, True);
			ItemValue := StringReplace(ItemValue, '1</', '.1', True, False, True);
			ItemValue := StringReplace(ItemValue, '2</', '.2', True, False, True);
			ItemValue := StringReplace(ItemValue, '3</', '.3', True, False, True);
			ItemValue := StringReplace(ItemValue, '4</', '.4', True, False, True);
			ItemValue := StringReplace(ItemValue, '5</', '.5', True, False, True);
			ItemValue := StringReplace(ItemValue, '6</', '.6', True, False, True);
			ItemValue := StringReplace(ItemValue, '7</', '.7', True, False, True);
			ItemValue := StringReplace(ItemValue, '8</', '.8', True, False, True);
			ItemValue := StringReplace(ItemValue, '9</', '.9', True, False, True);
			If ItemValue <> '' Then AddCustomFieldValueByName('Metascore', FloatToStr((StrToFloat(ItemValue) * 1)));
			LogMessage('Function ParsePage_IMDBMovieCRITICREVIEWS - Get result Metascore in PVD format (CF~Metascore~):|' + ItemValue + '||');
		End;  //If endPos > 0 Then Begin should end here
		LogMessage(#13#10 + '');

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieCRITICREVIEWS END=====================||');

End;//BlockClose
//*)

{
HOW TO BRING BACK REFERENCE PAGE FUNCTION:

FIRST UNCOMMENT IN THIS SCRIPT  //DOWNLOAD_REFERENCE_PAGE = True ;  //Download Reference page.

LEAVE IT TO "TRUE" WHILE COMMENTED OUT, BECAUSE OF THE SCRIPT CONFIGURATOR WILL READ IT ANYWAY, SO THE FIELD COULD BE PARSED BY OTHER FUNCTIONS AND IMPORTED TO THE FIELD BY DEFAULT, SO YOU DO NOT NEED TO MANUALLY CHECK IT IN "SET OVERWRITEOPTIONS FOR S SELECTED PLUGINS" AND TO NEED TO RESTART PVD THEN!!! ALSO READ COMMENTS IN SeleniumPVDbScriptsConfig-v4.ini FOUND BEFORE

<SCRIPT/>
	<I/>IMDB_Movie_EN_Selenium_v4</I>

SECTION

	HOW TO ENABLE REFERENCE PAGE OPTIONS IN SCRIPT CONFIGURATOR AGAIN:

	WHEN YOU DO FOLLOW TIPS IN SeleniumPVDbScriptsConfig-v4.ini, SAVE THAT INI FILE, THEN UNCOMMENT ParsePage_IMDBMovieREFERENCE(HTML:String):Cardinal; BELOW, CUSTOMIZE IT, SAVE EVERYTHING AND NOW YOU CAN USE SCRIPT CONFIGURATOR AND PVD WITHOUT ANY OTHER ACTION TAKEN.

(*
Function ParsePage_IMDBMovieREFERENCE(HTML:String):Cardinal;//BlockOpen
	//Returns:
	//Result := prFinished; Script has finished gathering data
	//Result := prError;  //It will change to prError if any major issue occurs and will exit;
	//Retrieve: REFERENCE~
Var
	curPos, endPos, debug_pos1: Integer;
	MoviesID, MoviesID2: String;
	ItemValue, ItemList, ItemList2, ItemList22: String;
	ItemValue22, ItemValue3, ItemValue30, ItemValue31: String;
	ItemValue00, ItemValue0, ItemValue1, ItemValue2: String;
	ItemValue10, ItemValue11, ItemValue12, ItemValue40: String;
	ItemValue100, ItemValue120, ItemValue140, ItemValue220: String;
	ItemValue33, ItemList33, enTitleValue, enTitleList: String;
	Hours, Minutes: Integer;
	subPos, subEnd: Integer;
	ReviewsSection, UserReviewURL, UserReviewText, UserReviewLink, CriticReviewURL, CriticReviewText, CriticReviewLink: String;
	Distributors: String;
	ItemArray: TWideArray;
	countryStart, countryEnd, akaStart, akaEnd, subTextStart, subTextEnd, index: Integer;
	countryValue, akaValue, subText, allItemValues, Line: String;
	StartPos, linkStartPos, linkendPos, textStartPos, textendPos, connStartPos, connendPos: Integer;
	Connections, connHTML, linkURL, linkText, connType: String;
	connectionTypes: Array of String;
	i: Integer;
	Section, categoryValue, extraText: String;
	extraTextStart, extraTextEnd: Integer;

Begin

	LogMessage('Function ParsePage_IMDBMovieREFERENCE BEGIN=====================||');

	If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function up to ParsePage function

		Result := prFinished;  //It will change to prError if any major issue occurs and will exit;

		//Get ~posters~
		If DOWNLOAD_POSTERS Then EnsurePosterDownloaded(HTML);

		//Calling GetPvdConfigOptions Function first
		//ConfigOptions := GetPvdConfigOptions;

		//Get ~IMDb MoviesID2~
		MoviesID2 := TextBetWeenFirst(DownloadURL, BASE_URL_PRE_TRUE, BASE_URL_SUF);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result MoviesID2: https://www.imdb.com/title/' + MoviesID2 + '/reference' + '||');

		//Get "MoviesID" info(CF~Reference~)
		MoviesID := TextBetWeenFirst(HTML, '"og:url" content="', '">');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result MoviesID:|' + MoviesID);
		AddCustomFieldValueByName('Reference', '<link url="' + MoviesID + '">IMDb Reference</link>');

		//(*
		//Get (CF~IMDB_year~), (CF~IMDB year~) and ~year~
		If Pos('<div id="content-2-wide" class="redesign">', HTML) > 0 Then Begin
			curPos := PosFrom('<h3 itemprop="name">', HTML, endPos);
			endPos := PosFrom('<section class="titlereference-section-overview">', HTML, curPos);
			ItemList := Copy(HTML, curPos, endPos - curPos);
			ItemValue10 := TextBetWeenFirst(ItemList, 'itemprop="url">', '</a>');
			(*
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue10 for year:|' + ItemValue10 + '||');
			If ItemValue10 <> '' Then ItemList2 := ItemList2 + ItemValue10 + #13#10;
			If ItemValue10 <> '' Then ItemList22 := ItemList22 + ItemValue10 + #13#10;
			If ItemValue10 <> '' Then ItemValue100 := ItemValue10;
				ItemValue100 := StringReplace(ItemValue100, '(', '', True, True, False);
				ItemValue100 := StringReplace(ItemValue100, ')', '', True, True, False);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue100 for year:|' + ItemValue100 + '||');
				debug_pos1 := Pos('-', ItemValue100);
			If debug_pos1 >0 Then ItemValue100 := Copy(ItemValue100, 0, debug_pos1-1);
			//*)
			(*
			If ItemValue10 <> '' Then AddCustomFieldValueByName('IMDB_year', ItemValue10);
			If ItemValue10 <> '' Then AddCustomFieldValueByName('IMDB Year', ItemValue10);
			If ItemValue10 <> '' Then AddCustomFieldValueByName('Year', ItemValue10);
			If ItemValue10 <> '' Then AddFieldValueXML('year', ItemValue10);  //It looks like there is a bug in PVD. Year will be populated even if set to "None" in PVD)

			//Get (CF~Imdb Title 1~)
			If (Length(ItemList) > 0) Then Begin
				ItemValue0 := TextBetWeenFirst(ItemList, '<h3 itemprop="name">', '<span class="titlereference-title-year">');
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue0 for title:|' + ItemValue0 + '||');
				If ItemValue0 = '0' Then ItemValue0 := '';
				If ItemValue0 = '' Then ItemValue00 := TextBetWeenFirst(ItemList, '<h3 itemprop="name">', '<');
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue00 for title:|' + ItemValue00 + '||');
				If ItemValue0 <> '' Then Begin
					ItemList2 := ItemValue0 + ' (' + ItemValue10 + ')';
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemList0 + (ItemValue10) [title (year)]:|' + ItemList2 + '||');
				End Else Begin
					ItemList2 := ItemValue00 + ' (' + ItemValue10 + ')';
				End;  //If ItemValue0 <> '' Then Begin should end here
				If ItemValue0 <> '' Then
					ItemList22 :=  ItemValue0 + ' (' + ItemValue10 + ')'
				Else
					ItemList22 := ItemValue00 + ' (' + ItemValue10 + ')';
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemList22 + ItemValue00 + #13#10:|' + ItemList22 + '||');
				AddCustomFieldValueByName('Title', ItemValue0);
				AddCustomFieldValueByName('Localized title', ItemValue0);

				//Get the title for the movie as (CF~Title1~) available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations.
				curPos := Pos('og:title" content="', HTML);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - curPos after finding og:title for English title as (CF~Title1~):|' + IntToStr(curPos));
				curPos := curPos + Length('og:title" content="');
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - curPos after moving past og:title for English title as (CF~Title1~):|' + IntToStr(curPos));

				endPos := PosFrom('">', HTML, curPos);

				//Extract the full title first
				enTitleList := Copy(HTML, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleList after extracting full title content:|' + enTitleList);

				//Check if the title ends with " (TV Episode yyyy)"
				If Pos(' (TV Episode ', enTitleList) > 0 Then Begin
					//Find the position of " (TV Episode "
					endPos := Pos(' (TV Episode ', enTitleList);
				End Else Begin
					If Pos(' (TV ', enTitleList) > 0 Then Begin
						//Find the position of " (TV "
						endPos := Pos(' (TV ', enTitleList);
						enTitleList := Copy(enTitleList, 1, endPos - 1);  //Trim everything from " (TV xxxx " onward
						LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleList after trimming " (TV xxxx yyyy)":|' + enTitleList);

					//Log the final cleaned title
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Final English title as (CF~Title1~):|' + enTitleList);
					End;  //If Pos(' (TV ', enTitleList) > 0 Then Begin should end here
				End;  //If Pos(' (TV Episode ', enTitleList) > 0 Then Begin should end here


				If Pos(')', enTitleList) > 0 Then Begin  //When there is "()" in title, like "The Human Centipede (First Sequence)"
					If PosFrom(') (', enTitleList, 1) > 0 Then Begin
						endPos := PosFr  //There is "()" in the title plus leftover that starts with " (" after ")". Test with https://www.imdb.com/title/tt1467304/om(') (', enTitleList, 1);
						enTitleValue := Copy(enTitleList, 1, endPos - 2);
						LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleValue after trimming 1st case for English title as (CF~Title1~):|' + enTitleValue);
					End Else Begin
						endPos := PosFrom(' (', enTitleList, 1);
						enTitleValue := Copy(enTitleList, 1, endPos);  //There is no "()" in the title, so only leftover that starts with " (" to be removed
						LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleValue after trimming 2nd case for English title as (CF~Title1~):|' + enTitleValue);
					End;  //If PosFrom(') (', enTitleList, 1) > 0 Then Begin should end here
				End Else Begin  //If Pos(')', enTitleList) = 0, when there is no "()" in title.
					If PosFrom(' (', enTitleList, 1) > 0 Then Begin  //There is no "()" in the title but there is leftover that starts with " (". Test with https://www.imdb.com/title/tt15412176/
						endPos := PosFrom(' (', enTitleList, 1);
						enTitleValue := Copy(enTitleList, 1, endPos - 1);
						LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleValue after trimming 1st case for English title as (CF~Title1~):|' + enTitleValue);
					End Else Begin
						enTitleValue := enTitleList;  //There is no "()" in the title and no leftover that starts with " (". Test with https://www.imdb.com/title/tt6263850/
						LogMessage('Function ParsePage_IMDBMovieREFERENCE - enTitleValue after trimming 2nd case for English title as (CF~Title1~):|' + enTitleValue);
					End;  //If PosFrom(' (', enTitleList, 1) > 0 Then Begin should end here
				End;  //If Pos(')', enTitleList) > 0 Then Begin should end here

				AddCustomFieldValueByName('Title1', enTitleValue);
				AddFieldValueXML('title', enTitleValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result English title as (CF~Title1~):|' + enTitleValue + '||');

				//Get ~title~, ~origtitle~, (CF~Origtitle~)
				If Pos('<span class="titlereference-original-title-label">', HTML) > 0 Then Begin
					ItemValue33 := TextBetWeenFirst(ItemList, '</h3>', '<span class="titlereference-original-title-label">');
				End Else Begin
					ItemValue33 := TextBetWeenFirst(ItemList, '<h3 itemprop="name">', '<');
				End;  //If Pos('<span class="titlereference-original-title-label">', HTML) > 0 Then Begin should end here
				If GET_ORIGINAL_TITLE Then Begin
					AddFieldValueXML('title', ItemValue33);
				End Else Begin
					AddFieldValueXML('title', enTitleValue);
				End;  //If GET_ORIGINAL_TITLE Then Begin should end here
				AddFieldValueXML('origtitle', ItemValue33);
				AddCustomFieldValueByName('Origtitle', ItemValue33);
				AddCustomFieldValueByName('Original Title', ItemValue33);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ~origtitle~ And (CF~OrigTitle~):|' + ItemValue33 + '||');

				//Get (CF~Imdb_Title~) And (CF~Imdb Title 1~)
				If Pos('(original title)</span>', ItemList) > 0 Then Begin
					ItemValue1 := TextBetWeenFirst(ItemList, '</h3>', '</span>');
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue1 for origtitle If Pos((original title)</span>, ItemList) > 0:|' + ItemValue1 + '||');
				End Else Begin
					ItemValue1 := TextBetWeenFirst(ItemList, '<h3 itemprop="name">', '<') + ' (original title)';
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue1 for origtitle If Pos((original title)</span>, ItemList) = 0:|' + ItemValue1 + '||');
				End;  //If Pos('(original title)</span>', ItemList) > 0 Then Begin should end here
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue1 for origtitle:|' + ItemValue1 + '||');
				debug_pos1 := Pos('If (', ItemValue1);
				If debug_pos1 >0 Then ItemValue1 := Copy(ItemValue1, 0, debug_pos1-1);
				ItemValue1 := StringReplace(ItemValue1, '         (original title)', ' (original title)', True, False, True);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue1a:|' + ItemValue1 + '||');
				If ItemValue1 <> '' Then Begin
					ItemList2 := ItemList2 + #13#10 + ItemValue1;
					If ItemValue1 <> '' Then ItemList22 := ItemList22 + #13#10 + ItemValue1;
				End Else Begin
					ItemList2 := ItemList2 + #13#10 +  ItemValue33 + '(original title)';
					If ItemValue1 <> '' Then ItemList22 := ItemList22 + #13#10 + ItemValue33 + '(original title)';
				End;  //If ItemValue1 <> '' Then Begin should end here

				ItemValue11 := HTMLValue(HTML, curPos, 0, '<ul class="ipl-inline-list">', '</ul>');
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result  ItemValue11:|' + ItemValue11 + '||');
				ItemValue11 := StringReplace(ItemValue11, '                                        ', '  ' + #8729 + '  ', True, False, True);
				ItemValue11 := StringReplace(ItemValue11, '                        ', '  ' + #8729 + '  ', True, False, True);
				ItemValue11 := StringReplace(ItemValue11, '                                ', '  ' + #8729 + '  ', True, False, True);
				ItemValue11 := StringReplace(ItemValue11, '        ', '', True, False, True);
				If ItemValue11 <> '' Then ItemList2 := ItemList2 + ItemValue11 + #13#10;
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemList2 + ItemValue11 + #13#10:|' + ItemList2 + '||');
				ItemList33 := ItemValue1 + ' / ' + ItemValue0+ ' (local title)';
				AddCustomFieldValueByName('Imdb_Title', ItemList33);

				//Write to (CF~Imdb Title 1~) field
				If (Length(ItemList2) > 0) Then Begin
					AddCustomFieldValueByName('Imdb Title 1', ItemList2);
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result (CF~Imdb Title 1~):|' + ItemList2 + '||');
				End;  //If (Length(ItemList2) > 0) Then Begin should end here

				//Write to (CF~Imdb Title 1~) field
				If (Length(ItemList22) > 0) Then Begin
					AddCustomFieldValueByName('Imdb Title 1', ItemList22);
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result (CF~Imdb Title 1~):|' + ItemList22 + '||');
				End;  //If (Length(ItemList22) > 0) Then Begin should end here
			End;  //If (Length(ItemList) > 0) Then Begin should end here
		End;  //If Pos('<div id="content-2-wide" class="redesign">', HTML) > 0 Then Begin should end here

		//Get ~imdbrating~ (CF~IMDB Rating~), (~IMDBRating~)
		ItemValue2 := TextBetWeenFirst(ItemList, '<span class="ipl-rating-star__rating">', '</span>');
		//ItemValue2 := StringReplace(ItemValue2, ',', '.', True, False, False);
		If ItemValue2 = '0' Then ItemValue2 := '';
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue2:|' + ItemValue2 + '||');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result  ItemList2 + ItemValue:|' + ItemList2 + ItemValue2 + '||');
		AddFieldValueXML('imdbrating',ItemValue2);
		AddCustomFieldValueByName('IMDB Rating',ItemValue2);
		AddCustomFieldValueByName('IMDBRating',ItemValue2);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ratingValue ~imdbrating~ (CF~IMDB Rating~), (~IMDBRating~):|' + ItemValue2 + '||');

		//Get IMDb Votes (CF~IMDB_Votes~), (CF~IMDB Votes~), (CF~IMDB Votes:~)
		ItemValue12 := TextBetWeenFirst(ItemList, '<span class="ipl-rating-star__total-votes">(', ')</span>');
		ItemValue12 := StringReplace(ItemValue12, '.', '', True, False, False);
		AddCustomFieldValueByName('IMDB_Votes', ItemValue12);
		AddCustomFieldValueByName('IMDB Votes', ItemValue12);
		AddCustomFieldValueByName('IMDB Votes:', ItemValue12);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ratingCount (CF~IMDB_Votes~):|' + ItemValue12 + '||');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue12:|' + ItemValue12 + '||');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result   ItemList2:|' + ItemList2 + '||');

		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Value of ReleaseInfoPageDownloaded:|' + BoolToStr(ReleaseInfoPageDownloaded))
		//Get Imdb Release Date ~rdate~, (CF~IMDB Release Date~), (CF~IMDB Release Dates~)
		ItemValue120 := TextBetWeenFirst(ItemList, '/releaseinfo">', '</a>');
		LogMessage('Function  - Get result ItemValue120:|' + ItemValue120 + '||');
		If ItemValue120 <> '' Then AddCustomFieldValueByName('Imdb Release Date', ItemValue120);
		AddCustomFieldValueByName('IMDB Release Dates', ItemValue120);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result DatePublished (CF~IMDB Release Date~):|' + ItemValue120 + '||');
		ItemValue120 := TextBetween(ItemList, '/releaseinfo">', ' (', False, curPos);
		ItemValue120 := Trim(ItemValue120);  //Clean whitespace
		ItemValue120 := ConfDate2(ItemValue120);  //Call ConfDate2 on the cleaned date

		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result DatePublished ItemValue120 for ~rdate~):|' + ItemValue120 + '||');
		ItemValue120 := ConfDate2(ItemValue120);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result DatePublished ItemValue120 after ConfDate2 for ~rdate~):|' + ItemValue120 + '||');
		AddFieldValueXML('rdate', ItemValue120);  //Function ConfDate2 to ensure the day and month always have two digits and to format the date independently of regional settings.
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ~rdate~:|' + ItemValue120 + '||');

		//Get TOP_250 and Top 250: and TOP_250TV
		ItemValue3 := TextBetWeenFirst(ItemList, '<a href="/chart/top" class="">', '</a>');
		//LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue3:|' + ItemValue3 + '||');
		If Pos('<a href="/chart/top" class="">', ItemList) <> 0 Then Begin
			If ItemValue3 <> '' Then Begin
				AddCustomFieldValueByName('TOP_250', StringReplace(ItemValue3, 'Top Rated Movies: #', '', True, False, True));
				AddCustomFieldValueByName('Top 250:', StringReplace(ItemValue3, 'Top Rated Movies: #', '', True, False, True));
				AddCustomFieldValueByName('TOP_250_Last', StringReplace(ItemValue3, 'Top Rated Movies: #', '', True, False, True));
				ItemList2 := ItemList2 + '  ' + #8226 + '  ' + ItemValue3;
			End Else Begin
				AddCustomFieldValueByName('TOP_250',StringReplace(ItemValue3, 'Top Rated Movies: #', '', True, False, True));
				AddCustomFieldValueByName('Top 250:', StringReplace(ItemValue3, 'Top Rated Movies: #', '', True, False, True));
			End;  //If ItemValue3 <> '' Then Begin should end here
		End Else Begin
			AddCustomFieldValueByName('TOP_250', '0');
			AddCustomFieldValueByName('Top 250:', '0');
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - html tags changed for Top 250, so maybe the title is still in top 250. Check title page on IMDb!');
		End;  //If Pos('<a href="/chart/top" class="">', ItemList) <> 0 Then Begin should end here

		ItemValue30 := TextBetWeenFirst(ItemList, '<a href="/chart/toptv" class="">', '</a>');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue30:|' + ItemValue30 + '||');
		If Pos('<a href="/chart/toptv" class="">', ItemList) <> 0 Then Begin
			If ItemValue30 <> '' Then Begin
				AddCustomFieldValueByName('TOP_250TV', StringReplace(ItemValue30, 'Top Rated TV: #', '', True, False, True));
				AddCustomFieldValueByName('TOP_250_Last', StringReplace(ItemValue30, 'Top Rated TV: #', '', True, False, True));
			End Else Begin
				AddCustomFieldValueByName('TOP_250TV', StringReplace(ItemValue30, 'Top Rated TV: #', '', True, False, True));
			End;  //If ItemValue30 <> '' Then Begin should end here
		End Else Begin
			AddCustomFieldValueByName('TOP_250TV', '0');
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - html tags changed for Top 250TV, so maybe the title is still in top 250. Check title page on IMDb!');
		End;  //If Pos('<a href="/chart/toptv" class="">', ItemList) <> 0 Then Begin should end here

		//Get Bottom 100
		ItemValue31 := TextBetWeenFirst(ItemList, '<a href="/chart/bottom" class=>', '</a>');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue31:|' + ItemValue31 + '||');
		If ItemValue31 <> '' Then AddCustomFieldValueByName('Bottom 100', StringReplace(ItemValue31, 'Bottom Rated Movies: #', '', True, False, True));
		If ItemValue31 <> '' Then ItemList2 := ItemList2 + '  ' + #8226 + '  ' + ItemValue31;
		//*)

		(*
		//Get ~studio~ And (CF~IMDb Studio2~) "Production Co" (multiple values in a comma separated list)
		curPos := Pos('">Production compan', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '">Production compan', '<h4 class="ipl-header__content ipl-list-title">Distributors</h4>', '<li>', '</a>', ', ', endPos);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get ItemValue Studio/Production Co multiple:|' + ItemValue + '||');
			AddFieldValueXML('studio', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results Studio/Production Co:|' + ItemValue + '||');
			//AddCustomFieldValueByName('IMDb Studio2', ItemValue140);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - (CF~IMDb Studio2~) added with value:|' + ItemValue140);
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('">Production compan', HTML);
		//*)

		(*
		//Get (CF~IMDb Studio2~)
		curPos := Pos('<h4 class="ipl-header__content ipl-list-title">Production Compan', HTML);  //WEB_SPECIFIC
		If curPos > 0 Then Begin
			endPos := curPos;
			ItemValue140 := HTMLValues(HTML, '<h4 class="ipl-header__content ipl-list-title">Production Compan', '<h4 class="ipl-header__content ipl-list-title">Distributors</h4>', '<li>', '</li>', ', ', endPos);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - (CF~IMDb Studio2~) after HTMLValues:|' + ItemValue140);
			ItemValue140 := StringReplace(ItemValue140, '                         ', '  ', True, False, True);
			//Custom field: IMDb Studio2 (formatted as "STUDIO RELEASE BY\n[ItemValue140]")
			If ItemValue140 <> '' Then Begin
				ItemValue140 := 'STUDIO RELEASE BY' + #13#10 + ItemValue140;
				AddCustomFieldValueByName('IMDb Studio2', ItemValue140);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - (CF~IMDb Studio2~) added with value:|' + ItemValue140);
			End;  //If ItemValue140 <> '' Then Begin should end here
		End;  //If curPos > 0 Then Begin should end here
		//*)

		(*
		//Get (CF~Distributors~) (multiple values in a comma separated list)
		curPos := Pos('">Distributor', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '">Distributors', '</ul>', '<li>', '</li>', ', ', endPos);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get ItemValue Distributors multiple:|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, '                         ', ' ', true, False, true);
			ItemValue := StringReplace(ItemValue, ', ', #13#10, true, False, true);
			AddCustomFieldValueByName('Distributors', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results (CF~Distributors~):|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('">Distributor', HTML);

		If Not (AwardsPageDownloaded) Then Begin
			//(*
			//Get "Awards" Summary (CF~IMDbAwards1~)
			curPos := Pos('<section class="titlereference-section-overview">', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				ItemValue220 := TextBetWeen(HTML, 'Awards:', '</li>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
				AddCustomFieldValueByName('IMDbAwards1', ItemValue220);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result (CF~IMDbAwards1~):|' + ItemValue220 + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If AwardsPageDownloaded Then Begin should end here

		(*//Without underlinks
		//Get "Reviews" Summary (CF~IMDb_Reviews_Summary~)
		curPos := Pos('Reviews:', HTML);  //WEB_SPECIFIC
		//curPos := PosFrom('<a href="/title/tt', HTML, curPos);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue220 := HTMLValues(HTML, '<ul class="ipl-inline-list titlereference-overview-review-list">', '</section>', '<li class="ipl-inline-list__item">', '</a>', ' reviews and ', endPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemValue220 := ItemValue220 + ' reviews';
			AddCustomFieldValueByName('IMDb_Reviews_Summary', ItemValue220);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result (CF~IMDb_Reviews_Summary~):|' + ItemValue220 + '||');
		End;  //If 0 < curPos Then Begin should end here
		//*)

		(*
		//Underlinked
		//Get "Reviews" Summary (CF~IMDb_Reviews_Summary~) - "IMDb Reviews Summary:" caption in my skin
		curPos := Pos('Reviews:', HTML);  //WEB_SPECIFIC

		If 0 < curPos Then Begin
			endPos := PosFrom('</section>', HTML, curPos);  //End of the reviews section
			If endPos > 0 Then Begin
				//Extract the HTML within the reviews section
				ReviewsSection := Copy(HTML, curPos, endPos - curPos);

				//Find and process the first review link
				subPos := Pos('<a href="', ReviewsSection);
				If subPos > 0 Then Begin
					subPos := subPos + Length('<a href="');
					subEnd := PosFrom('"', ReviewsSection, subPos);
					UserReviewURL := Copy(ReviewsSection, subPos, subEnd - subPos);
					subPos := PosFrom('>', ReviewsSection, subEnd) + 1;
					subEnd := PosFrom('</a>', ReviewsSection, subPos);
					UserReviewText := Copy(ReviewsSection, subPos, subEnd - subPos);
					UserReviewLink := '<link url="https://www.imdb.com' + UserReviewURL + '">' + UserReviewText + ' reviews</link>';
				End;  //If subPos > 0 Then Begin should end here

				//Find and process the second review link
				subPos := PosFrom('<a href="', ReviewsSection, subEnd);
				If subPos > 0 Then Begin
					subPos := subPos + Length('<a href="');
					subEnd := PosFrom('"', ReviewsSection, subPos);
					CriticReviewURL := Copy(ReviewsSection, subPos, subEnd - subPos);
					subPos := PosFrom('>', ReviewsSection, subEnd) + 1;
					subEnd := PosFrom('</a>', ReviewsSection, subPos);
					CriticReviewText := Copy(ReviewsSection, subPos, subEnd - subPos);
					CriticReviewLink := '<link url="https://www.imdb.com' + CriticReviewURL + '">' + CriticReviewText + ' reviews</link>';
				End;  //If subPos > 0 Then Begin should end here

				//Combine the results//Handle all cases for UserReviewLink and CriticReviewLink
				If (UserReviewLink <> '') Or (CriticReviewLink <> '') Then Begin
					If UserReviewLink <> '' Then Begin
						If CriticReviewLink <> '' Then Begin
							//Both links are non-empty
							ItemValue220 := UserReviewLink + ' and ' + CriticReviewLink;
						End Else Begin
							//Only UserReviewLink is non-empty
							ItemValue220 := UserReviewLink;
						End;  //If CriticReviewLink <> '' Then Begin should end here
					End Else Begin
						//Only CriticReviewLink is non-empty
						ItemValue220 := CriticReviewLink;
					End;  //If UserReviewLink <> '' Then Begin should end here
					//Add field and log the result
					AddCustomFieldValueByName('IMDb_Reviews_Summary', ItemValue220);
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result (CF~IMDb_Reviews_Summary~):|' + ItemValue220 + '||');
				End Else Begin
					//Both links are empty
					ItemValue220 := '';
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - No links available for IMDb_Reviews_Summary.');
				End;  //If (UserReviewLink <> '') Or (CriticReviewLink <> '') Then Begin should end here
			End;  //If endPos > 0 Then Begin should end here
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('Reviews:', HTML);

		//*)

		(*
		//Get Plot Summary from the top of the page (CF~IMDB Plot Summary~)
		If Pos('Know what this is about?', HTML) > 0 Then Begin
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - No plot summary available on page top.');
			ItemValue22 := '';
		End Else Begin
			//Handle TV Series top-of-page layout
			curPos := Pos('titlereference-overview-years-links', HTML);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Handling TV Series titlereference-overview-years-links:|' + IntToStr(curPos) + '||');
			If Pos('titlereference-overview-years-links', HTML) > 0 Then Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Handling TV Series top-of-page layout.');
				curPos := PosFrom('<hr>', HTML, curPos);
				If curPos > 0 Then Begin
					ItemValue22 := TextBetWeen(HTML, '<div>', '</div>', False, curPos);  //Extract data for TV Series
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Extracted ItemValue22 for TV Series:|' + #13#10 + ItemValue22 + '||');
				End;  //If curPos > 0 Then Begin should end here
			End;  //If Pos('titlereference-overview-years-links', HTML) > 0 Then Begin should end here

			//Handle Movies top-of-page layout
			If (Pos('titlereference-overview-years-links', HTML) = 0) And (Pos('titlereference-overview-episodes-links', HTML) = 0) Then Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Handling Movies top-of-page layout.');
				curPos := Pos('<section class="titlereference-section-overview">', HTML);
				curPos := PosFrom('<div>', HTML, curPos);
				If curPos > 0 Then Begin
					ItemValue22 := TextBetWeen(HTML, '<div>', '</div>', False, curPos);  //Extract data for Movies
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Extracted ItemValue22 for Movies:|' + #13#10 + ItemValue22 + '||');
				End;  //If curPos > 0 Then Begin should end here
			End;  //If (Pos('titlereference-overview-years-links', HTML) = 0) And (Pos('titlereference-overview-episodes-links', HTML) = 0) Then Begin should end here

			//Handle TV Episodes top-of-page layout
			If Pos('titlereference-overview-episodes-links', HTML) > 0 Then Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Handling TV Episodes top-of-page layout.');
				curPos := Pos('<section class="titlereference-section-overview">', HTML);
				curPos := PosFrom('<hr>', HTML, curPos);
				If curPos > 0 Then Begin
					ItemValue22 := TextBetWeen(HTML, '<div>', '</div>', False, curPos);  //Extract data for TV Episodes
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Extracted ItemValue22 for TV Episodes:|' + #13#10 + ItemValue22 + '||');
				End;  //If curPos > 0 Then Begin should end here
			End;  //If Pos('titlereference-overview-episodes-links', HTML) > 0 Then Begin should end here

			//Clean the extracted Plot Summary
			If ItemValue22 <> '' Then Begin
				ItemValue22 := StringReplace(ItemValue22, '    See more »', '', true, False, true);  //Cleaning "See more »"
				ItemValue22 := StringReplace(ItemValue22, 'Know what this is about?', '', true, False, true);  //Cleaning unnecessary text
				ItemValue22 := StringReplace(ItemValue22, 'Be the first one to add a plot.', '', true, False, true);  //Cleaning unnecessary text
				ItemValue22 := StringReplace(ItemValue22, ' -- ', ' — ', True, False, True);  //Cleaning unnecessary dashes
				AddCustomFieldValueByName('IMDB Plot Summary', ItemValue22);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Final IMDb Plot Summary (CF~IMDB Plot Summary~):|' + #13#10 + ItemValue22);
			End;  //If ItemValue22 <> '' Then Begin should end here

			//Handle Storyline section for description & Description
			curPos := Pos('<td class="ipl-zebra-list__label">Plot Summary</td>', HTML);  //Locate the Storyline section
			If curPos > 0 Then Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Handling Storyline section.');
				ItemValue := TextBetWeen(HTML, '<p>', '</p>', False, curPos);  //Extract data from Storyline
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Extracted ItemValue from Storyline:|' + #13#10 + ItemValue + '||');
				curPos := Pos('Written by', ItemValue);  //Cleaning "Written by" data
				If curPos > 0 Then ItemValue := Copy(ItemValue, 0, curPos - 1);
				//Clean the extracted Storyline description
				ItemValue := StringReplace(ItemValue, 'Know what this is about?', '', true, False, true);
				ItemValue := StringReplace(ItemValue, 'Be the first one to add a plot.', '', true, False, true);
				ItemValue := StringReplace(ItemValue, 'IMDb Answers surfaces high-value content that is missing from IMDb.', '', true, False, true);
				ItemValue := StringReplace(ItemValue, ' -- ', ' — ', True, False, True);
				AddFieldValueXML('description', ItemValue);
				AddCustomFieldValueByName('Description', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Final ItemValue for Storyline (~description~, Description):|' + #13#10 + ItemValue);
			End;  //If curPos > 0 Then Begin should end here
		End;  //If Pos('Know what this is about?', HTML) > 0 Then Begin should end here

		If Not (KeywordsPageDownloaded) Then Begin
			//Get ~tags~ "keywords" (field with multiple values in a comma separated list)
			curPos := Pos('<td class="ipl-zebra-list__label">Plot Keywords</td>', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Plot Keywords</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
				curPos := Pos('See All', ItemValue);         //WEB_SPECIFIC
				If 0 < curPos Then ItemValue := Copy(ItemValue, 0, curPos - 1);
				AddFieldValueXML('tags', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results ~tags~:|' + ItemValue + '||');
			End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Plot Keywords</td>', HTML);
		End;  //If Not (KeywordsPageDownloaded) Then Begin should end here

		//(*
		//Get ~tagline~
		curPos := Pos('<td class="ipl-zebra-list__label">Taglines</td>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			ItemValue := TextBetWeen(HTML, '<td>', '<', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemValue := StringReplace(ItemValue, 'Edit', '', true, False, true);  //Cleaning. WEB_SPECIFIC.
			curPos := Pos('See more', ItemValue);           //WEB_SPECIFIC
			If 0 < curPos Then ItemValue := Copy(ItemValue, 0, curPos - 1);
			AddFieldValueXML('tagline', ItemValue);
			AddCustomFieldValueByName('IMDB_Tagline', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ~tagline~:|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Taglines</td>', HTML);
		//*)

		(*
		If Not (TechnicalPageDownloaded) Then Begin
			//Get "Sound Mix" (multiple values in a comma separated list) (CF~Sound Mix~) And (CF~IMDB - Sound Mix~)
			curPos := Pos('<td class="ipl-zebra-list__label">Sound mix</td>', HTML);  //WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue40 := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Sound mix</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
				If ItemValue40 <> '' Then AddCustomFieldValueByName('Sound Mix', ItemValue40);
				If ItemValue40 <> '' Then AddCustomFieldValueByName('IMDB - Sound Mix', StringReplace(ItemValue40, ', ', '<br>', True, False, True));
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results for (CF~Sound Mix~) And (CF~IMDB - Sound Mix~):|' + ItemValue40 + '||');
			End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Sound mix</td>', HTML);
		End;  //If Not (TechnicalPageDownloaded) Then Begin should end here
		//*)

			(*
		//SNIPPETS FOR THE FIELDS FOUND IN OTHER FUNCTIONS, BUT ALSO FOUND ON REFERENCE PAGE, TO BE EXECUTED here. SHOULD WE ADD ALL OTHER HERE TO REFERENCE TO OPTIMIZE?

		If Not (MainPageDownloaded) And Not (ParentalGuidePageDownloaded) Then Begin
			//Get (CF~IMDB_MPAA~)
			curPos := Pos('<a href="/preferences/general" class="">Change View</a>', HTML);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result curPos for (CF~IMDB_MPAA~):|' + IntToStr(curPos) + '||');
			endpos := PosFrom('</ul>', HTML, curPos);
			ItemList := Copy(HTML, curPos, endPos - curPos);
			ItemValue := TextBetWeenFirst(ItemList, '<li class="ipl-inline-list__item">', '</li>');  //Strings which opens/closes the data. WEB_SPECIFIC
			AddFieldValueXML('mpaa', ItemValue);
			AddCustomFieldValueByName('IMDB_MPAA', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ContentRating (CF~IMDB_MPAA~):|' + ItemValue + '||');
		End;  //If Not (MainPageDownloaded) And Not (ParentalGuidePageDownloaded) Then Begin should end here

		If Not (TechnicalPageDownloaded) Then Begin
			//Get the original "Runtime" (in minutes) as ~length~ (in seconds), (CF~Run time~), (CF~Run time1~), And (CF~Imdb Runtime1~) instead of the duration of the user movie copy
			curPos := Pos('</li>', ItemList) + Length('</li>');
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result curPos for ~length~:|' + IntToStr(curPos) + '||');
			ItemList := Copy(ItemList, curPos, endPos - curPos);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemList for ~length~:|' + ItemList + '||');
			ItemValue := TextBetWeenFirst(ItemList, '<li class="ipl-inline-list__item">', '</li>');
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue for ~length~:|' + ItemValue + '||');

			If curPos > 0 Then Begin
				//Extract hours and minutes
				Hours := 0;
				Minutes := 0;

				If Pos('h', ItemValue) > 0 Then Begin
					Hours := StrToIntDef(Copy(ItemValue, 1, Pos('h', ItemValue) - 1), 0);
					ItemValue := Copy(ItemValue, Pos('h', ItemValue) + 1, Length(ItemValue));
				End;  //If Pos('h', ItemValue) > 0 Then Begin should end here

				If Pos('min', ItemValue) > 0 Then Begin
					Minutes := StrToIntDef(Copy(ItemValue, 1, Pos('min', ItemValue) - 1), 0);
				End;  //If Pos('min', ItemValue) > 0 Then Begin should end here

				ItemValue := IntToStr(Hours * 60 + Minutes);
				If ItemValue = '0' Then ItemValue := '';

				If ItemValue <> '' Then Begin
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result Original Runtime:|' + ItemValue + '||');
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Log the file size to know if ~length~ is to be added or not:|' + GetFieldValueXML('size'));
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Log the file size to know if ~length~ is to be added or not:|' + GetSeriesFieldValueXML('size'))
					If ((GetFieldValueXML('size') = '') Or (GetFieldValueXML('size') = '0')) Or ((GetFieldValueXML('length') = '') Or (GetFieldValueXML('length') = '0')) Then AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue)));  //~length~ Value in seconds.
					AddCustomFieldValueByName('Run time', ItemValue);
					AddCustomFieldValueByName('Run time1', ItemValue);
					AddCustomFieldValueByName('Imdb Runtime1', IntToStr(Hours) + 'h' + ' ' + IntToStr(Minutes) + 'm (' + ItemValue + ' minutes)');
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result "Runtime" (in minutes) ~length~, (CF~Run time~), (CF~Run time1~), And (CF~Imdb Runtime1~) :|' + ItemValue + '||');
				End;  //If ItemValue <> '' Then Begin should end here - ItemValue := IntToStr(Hours * 60 + Minutes);
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - duration/length not found');
			End;  //If curPos > 0 Then Begin should end here - 
		End;  //If Not (TechnicalPageDownloaded) Then Begin should end here

		//Get ~genre~ (field with multiple values in a comma separated list) from the top of the page
		curPos := Pos('</li>', ItemList) + Length('</li>');
		curPos := Pos('<a href="/genre', ItemList) + Length('<a href="/genre');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result curPos for ~genre~:|' + IntToStr(curPos) + '||');
		ItemList := Copy(ItemList, curPos, endPos - curPos);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemList for ~genre~:|' + ItemList + '||');
		ItemValue := TextBetWeenFirst(ItemList, '">', '</a>');
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue for ~genre~:|' + ItemValue + '||');
		AddFieldValueXML('genre',ItemValue);
		LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results from the top of the page  added to ~genre~ field~:|' + ItemValue + '||');

		//Get ~genre~ (field with multiple values in a comma separated list) from the "Storyline" section of the page
		curPos := Pos('<td class="ipl-zebra-list__label">Genres</td>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Genres</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
			AddFieldValueXML('genre', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results from the "Storyline" section of the page added to ~genre~ field:|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Genres</td>', HTML);

		//Get ~budget~
		curPos := Pos('<td class="ipl-zebra-list__label">Budget</td>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			ItemValue := TextBetWeen(HTML, '<td>', '</td>', False, curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
			ItemValue := StringReplace(ItemValue, ' (estimated)', '', True, True, False);  //Eliminate '(estimated)' if exists
			If ItemValue <> '' Then AddCustomFieldValueByName('ProductionBudget', ItemValue);
			ItemValue := StringReplace(ItemValue, #36, '', True, True, False);  //Eliminate '$' if exists
			ItemValue := StringReplace(ItemValue, '€', '', True, True, False);  //Eliminate '€' if exists
			ItemValue := StringReplace(ItemValue, ',', '', True, True, False);  //Eliminate ',' if exists
			AddFieldValueXML('budget', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results ~budget~:|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Budget</td>', HTML);

		//Get ~country~ (multiple values in a comma separated list) - when "Country/Countries of origin"
		curPos := Pos('<td class="ipl-zebra-list__label">Country</td>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Country</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
			AddFieldValueXML('country', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results Country/Countries:|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Country</td>', HTML);

		//Get ~origlang~  (CF~Language~) (multiple values in a comma separated list) instead of the audio channels of the user's movie copy
		curPos := Pos('<td class="ipl-zebra-list__label">Language', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Language', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
			//AddFieldValueXML('origlang', ItemValue);
			If ItemValue <> '' Then AddCustomFieldValueByName('Language:', ItemValue);
			AddFieldValueXML('origlang', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results ~origlang~  (CF~Language~):|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Language', HTML);

		//(* //FOR SOME REASON ALTHOUGH CORRECTLY PARSED, IT WON'T POPULATE TO THE FIELD, SO THE FIELD IS PARSED AND POPULATED BY THE Function ParsePage_IMDBMovieBASE
		//Get (CF~IMDb_Filming_Locations~)
		curPos := Pos('<td class="ipl-zebra-list__label">Filming Locations</td>', HTML);  //WEB_SPECIFIC
		If 0 < curPos Then Begin
			endPos := curPos;
			ItemValue := HTMLValues(HTML, '<td class="ipl-zebra-list__label">Filming Locations</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results ItemValue for CF~IMDb_Filming_Locations~):|' + ItemValue + '||');
			ItemValue := StringReplace(ItemValue, 'See more »', '', True, True, False);
			If (Length(ItemValue) >= 2) And (Copy(ItemValue, Length(ItemValue) - 1, 2) = ', ') Then SetLength(ItemValue, Length(ItemValue) - 2);
			If ItemValue <> '' Then AddCustomFieldValueByName('IMDb_Filming_Locations:', ItemValue);
			LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results CF~IMDb_Filming_Locations~):|' + ItemValue + '||');
		End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Filming Locations</td>', HTML);
		//*)

		(*
		If Not (MainPageDownloaded) And Not (TechnicalPageDownloaded) Then Begin
			//Get "Color" (CF~Color~) & (CF~'Imdb Color~) (multiple values in a comma separated list)
			curPos := Pos('<td class="ipl-zebra-list__label">Color</td>', HTML);
			LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos (CF~Color~) & (CF~Imdb Color~):|' + IntToStr(curPos) + '||');
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemValue := HTMLValues2(HTML, '<td class="ipl-zebra-list__label">Color</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', ', ', endPos);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE -  Get result ItemValue after HTMLValues2 (CF~Color~) & (CF~Imdb Color~):|' + ItemValue + '||');
				ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);  //WEB_SPECIFIC
				If ItemValue <> '' Then ItemList := ItemList + 'Color:|' + ItemValue + '<br>';
				If ItemValue <> '' Then AddCustomFieldValueByName('Color:', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb_Color', ItemValue);
				If ItemValue <> '' Then AddCustomFieldValueByName('Imdb Color:', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE -  Get result (CF~Color~), (CF~Imdb Color~), (CF~Imdb_Color~) And (CF~Imdb Color:~):|' + ItemValue + '||');
			End;  //If 0 < curPos Then Begin should end here
		End;  //If Not (MainPageDownloaded) And Not (TechnicalPageDownloaded) Then Begin should end here

		If Not (MainPageDownloaded) Then Begin
			//Go to "Connections" (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~)
			//Initialize the string to collect all entries
			allItemValues := '';

			StartPos := Pos('<td class="ipl-zebra-list__label">Movie Connections</td>', HTML);
			If StartPos > 0 Then Begin
				//Define the end marker for the "Connections" section
				endPos := PosFrom('</tr>', HTML, StartPos);
				If endPos > StartPos Then Begin
					//Extract the relevant HTML section
					ItemValue := Copy(HTML, StartPos, endPos - StartPos);
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result ItemValue for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) :|' + #13#10 + ItemValue + '||' + #13#10);

					//Initialize connections container
					Connections := '';

					//Define connection types
					connectionTypes := ['Featured in', 'Follows', 'Followed by', 'Referenced in', 'Remade as', 'Remake of', 'Spin-off', 'Spoofed in', 'Edited into', 'Edited from', 'Version of', 'Features', 'References', 'Spoofs', 'Spin-off from'];

					//Iterate through each type of connection using an indexed loop
					For i := Low(connectionTypes) To High(connectionTypes) Do Begin
						connType := connectionTypes[i];
						connStartPos := PosFrom(connType, ItemValue, 1);
						While connStartPos > 0 Do Begin
							connendPos := PosFrom('</a>', ItemValue, connStartPos) + Length('</a>') - 1;
							If connendPos > connStartPos Then Begin
								connHTML := Copy(ItemValue, connStartPos, connendPos - connStartPos + 1);

								//Extract the link URL
								linkStartPos := PosFrom('<a href="', connHTML, 1) + Length('<a href="');
								linkendPos := PosFrom('">', connHTML, linkStartPos);
								linkURL := Copy(connHTML, linkStartPos, linkendPos - linkStartPos);

								//Extract the link text
								textStartPos := linkendPos + Length('">');
								textendPos := PosFrom('</a>', connHTML, textStartPos);
								linkText := Copy(connHTML, textStartPos, textendPos - textStartPos);

								//Build the custom format
								connHTML := connType + ' <link url="https://www.imdb.com' + linkURL + '">' + linkText + '</link>';

								//Append to connections container
								If Length(Connections) > 0 Then
									Connections := Connections + ', ' + connHTML
								Else
									Connections := connHTML;
							End;  //If connendPos > connStartPos Then Begin should end here
							connStartPos := PosFrom(connType, ItemValue, connStartPos + Length(connHTML));
						End;  //While connStartPos > 0 Do Begin should end here
					End;  //For i := Low(connectionTypes) To High(connectionTypes) Do Begin should end here

					LogMessage('Function ParsePage_IMDBMovieREFERENCE - Final processed Connections:|' + Connections + '||' + #13#10);

					//Add custom field values
					AddCustomFieldValueByName('Conect', Connections);
					AddCustomFieldValueByName('MiniConnections', Connections);

					//Add condition to check "Followed By" presence and add custom field value
					If PosFrom('Followed By', Connections, 1) > 0 Then AddCustomFieldValueByName(FOLLOWEDBY_FIELD, '-1');
				End;  //If endPos > StartPos Then Begin should end here
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) not found');
			End;  //If StartPos > 0 Then Begin should end here - StartPos := Pos('<td class="ipl-zebra-list__label">Movie Connections</td>', HTML);

			//Go to "Soundtracks" (CF~MiniSoundtracks~)
			StartPos := Pos('<td class="ipl-zebra-list__label">Soundtracks</td>', HTML);
			If StartPos>0 Then Begin
				ItemValue := TextBetWeen(HTML, '<td>', '<a href=', False, StartPos);
				AddCustomFieldValueByName('MiniSoundtracks', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result Soundtracks (CF~MiniSoundtracks~):|' + #13#10 + ItemValue + #13#10);
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - (CF~MiniSoundtracks~) not found');
			End;  //If StartPos>0 Then Begin should end here - StartPos := Pos('<td class="ipl-zebra-list__label">Soundtracks</td>', HTML);
		End;  //If Not (MainPageDownloaded) Then Begin should end here

		If Not (ParentalGuidePageDownloaded) Then Begin
			//Get "Certification" (CF~Certification~) info
			If Pos('<td class="ipl-zebra-list__label">Certification</td>', HTML) > 0 Then Begin
				curPos := Pos('<td class="ipl-zebra-list__label">Certification</td>', HTML);
				endPos := PosFrom('</ul>', HTML, curPos);

				//Extract the relevant section
				Section := Copy(HTML, curPos, endPos - curPos);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Extract the relevant Section:|' + Section + '||');

				curPos := 1;
				ItemValue1 := '';

				//Parse the certification items
				While PosFrom('<li class="ipl-inline-list__item">', Section, curPos) > 0 Do Begin
					//Move to the link
					curPos := PosFrom('<a href="', Section, curPos) + Length('<a href="');
					categoryValue := TextBetween(Section, '>', '</a>', False, curPos);
					LogMessage('Function ParsePage_IMDBMovieREFERENCE - categoryValue after TextBetween:|' + categoryValue + '||');

					//Check for additional text after the link (e.g., "(Alberta)")
					extraTextStart := PosFrom('</a>', Section, curPos) + Length('</a>');
					extraTextEnd := PosFrom('</li>', Section, extraTextStart);
					extraText := Trim(Copy(Section, extraTextStart, extraTextEnd - extraTextStart));
					If extraText <> '' Then categoryValue := categoryValue + '    ' + extraText;

					//Format the category link with proper spaces
					ItemValue1 := ItemValue1 + '   •   ' + categoryValue + '<br>';

					//Move to the next item
					curPos := extraTextEnd + Length('</li>');
				End;  //While PosFrom('<li class="ipl-inline-list__item">', Section, curPos) > 0 Do Begin should end here

				//Remove the trailing "   •   " if it exists and keep the last <br> intact
				If Copy(ItemValue1, Length(ItemValue1) - 6, 6) = '<br>' Then Begin
					ItemValue1 := Copy(ItemValue1, 1, Length(ItemValue1) - 6);
				End;  //If Copy(ItemValue1, Length(ItemValue1) - 6, 6) = '<br>' Then Begin should end here

				AddCustomFieldValueByName('Certification', 'Certification<br>' + ItemValue1);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Certification:<br>' + ItemValue1 + '||');
			End Else Begin
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Certification section not found');
				Result := prError;  //Set to error if Certification section is not found
			End;  //If Pos('<td class="ipl-zebra-list__label">Certification</td>', HTML) > 0 Then Begin should end here
		End;  //If Not (ParentalGuidePageDownloaded) Then Begin should end here

		If Not (ReleaseInfoPageDownloaded) Then Begin
			//Get ~aka~ (multiple values in a line break separated list) Be careful don't repeat #13#10
			//Note that "For" loop iterates through each element in the ItemArray and checks if it is already present in the ItemValue string. If it's not present, it adds it to ItemValue. only unique AKA values are stored and logged!
			//Go to "Also known as"
			curPos := Pos('<td class="ipl-zebra-list__label">Also known as</td>', HTML);  //Strings start which opens the block content data. WEB_SPECIFIC
			If 0 < curPos Then Begin
				endPos := curPos;
				ItemList := HTMLValues2(HTML, '<td class="ipl-zebra-list__label">Also known as</td>', '</ul>', '<li class="ipl-inline-list__item">', '</li>', '*', endPos);
				ItemList := StringReplace(ItemList, 'See more »', '', True, True, False);
				ItemValue1 := ItemList;
				ExplodeString(ItemList, ItemArray, '*');
				ItemValue := '';
				For index := Low(ItemArray) To High(ItemArray) Do Begin  //Remember index Begins at 0
					//Extract only the first line (title) from the <li> content
					Line := Trim(ItemArray[index]);
					Line := Copy(Line, 1, Pos('(', Line) - 1);  //Extract text before the first '('
					Line := Trim(Line);
					If (Pos(Line, ItemValue)= 0) And (Line <> '') Then ItemValue := ItemValue + '<br>' + Line;
				End;  //For index := Low(ItemArray) To High(ItemArray) Do Begin should end here
				AddFieldValueXML('aka', ItemValue);
				AddCustomFieldValueByName('Imdb Aka', ItemValue);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get results ~aka~ & (CF~Imdb Aka~) :|' + ItemValue);
			End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Also known as</td>', HTML);

			//Initialize the string to collect all entries
			allItemValues := '';

			//Get "Also known as (AKA)" information with countries
			curPos := Pos('<td class="ipl-zebra-list__label">Also known as</td>', HTML);
			If 0 < curPos Then Begin
				endPos := PosFrom('<a href=', HTML, curPos);  //Mark the end position to ensure extraction is within the correct section

				While curPos < endPos Do Begin
					//Find each list item
					curPos := PosFrom('<li class="ipl-inline-list__item">', HTML, curPos);
					If (curPos = 0) Or (curPos > endPos) Then Break;

					//Extract the text up to <a href= or </li>
					akaStart := curPos + Length('<li class="ipl-inline-list__item">');
					akaEnd := PosFrom('<a href=', HTML, akaStart);
					If (akaEnd = 0) Or (akaEnd > PosFrom('</li>', HTML, akaStart)) Then akaEnd := PosFrom('</li>', HTML, akaStart);
					akaValue := Copy(HTML, akaStart, akaEnd - akaStart);
					akaValue := Trim(akaValue);

					//Collect the result and remove excessive whitespace
					allItemValues := allItemValues + StringReplace(akaValue, #13#10 + '                            ', ' ', True, False, False) + #13#10;

					//Move to the next list item
					curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
				End;  //While curPos < endPos Do Begin should end here

				//Add the collected results to the custom field
				AddCustomFieldValueByName('IMDbCountryAKA', allItemValues);
				LogMessage('Function ParsePage_IMDBMovieREFERENCE - Get result IMDbCountryAKA:|' + allItemValues);
			End;  //If 0 < curPos Then Begin should end here - curPos := Pos('<td class="ipl-zebra-list__label">Also known as</td>', HTML); AKA with countries
		End;  //If Not (ReleaseInfoPageDownloaded) Then Begin should end here

	End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

	LogMessage('Function ParsePage_IMDBMovieREFERENCE END=====================||');

End;//BlockClose
//*)
}

//More Functions for DOWNLOAD_MORE_PAGES here

//USER FUNCTIONS AND PROCEDURES==================================================================================BlockClose

//OBLIGATORY CALLBACK PRINCIPAL FUNCTION=========================================================================BlockOpen

//(*
Function ParsePage(HTML: String;URL:AnsiString):Cardinal;//BlockOpen
Var
	MovieID, titleValue, yearValue: String;
	ResultTmp: Cardinal;
	Date: String;
	Fullinfo, Movie_URL, IMDB_URL: String;
	DateParts: TWideArray;
	Fullinfo1, MovieID1: String;
	ScriptPath, FileTitleMain, FileTitleFullCredits, FileTitleReleaseInfo, FileTitleReviews, FileTitleCompanyCredits, FileTitleLocations, FileTitleTechnical, FileTitleExternalSites, FileTitleCriticReviews, FileTitleParentalGuide, FileTitleAwards, FileTitlePlotSummary, FileTitleReference, FileTitleKeywords, FileTitleMovieConnections, FilePath: String;
	CombinedHTML: String;
	ConfigOptions: TWideArray;
	ResultsNumber, i: Integer;
	SearchResults: TWideArray;
	Line: String;
	StartPos, endPos: Integer;

Begin

	LogMessage('Function ParsePage: Starting processing.');
	LogMessage('Function ParsePage - HTML length:|' + IntToStr(Length(HTML)));
	LogMessage('Function ParsePage BEGIN======================|');
	LogMessage('Function ParsePage - Global Var: Mode|' + IntToStr(Mode) + '||');
	LogMessage('Function ParsePage - Global Var: DownloadURL|' + DownloadURL + '||');
	LogMessage('Function ParsePage - Local Var: URL|' + URL + '||');

	//Calling GetPvdConfigOptions Function first
	ConfigOptions := GetPvdConfigOptions;

	(*
	//Log the values of each opXXX
	LogMessage('Function ParsePage - opPoster:|' + ConfigOptions[0]);
	LogMessage('Function ParsePage - opTitle:|' + ConfigOptions[1]);
	LogMessage('Function ParsePage - opOrigTitle:|' + ConfigOptions[2]);
	LogMessage('Function ParsePage - opAKA:|' + ConfigOptions[3]);
	LogMessage('Function ParsePage - opYear:|' + ConfigOptions[4]);
	LogMessage('Function ParsePage - opGenre:|' + ConfigOptions[5]);
	LogMessage('Function ParsePage - opCategory:|' + ConfigOptions[6]);
	LogMessage('Function ParsePage - opDirector:|' + ConfigOptions[7]);
	LogMessage('Function ParsePage - opProducer:|' + ConfigOptions[8]);
	LogMessage('Function ParsePage - opWriter:|' + ConfigOptions[9]);
	LogMessage('Function ParsePage - opComposer:|' + ConfigOptions[10]);
	LogMessage('Function ParsePage - opActors:|' + ConfigOptions[11]);
	LogMessage('Function ParsePage - opCountry:|' + ConfigOptions[12]);
	LogMessage('Function ParsePage - opOrigLang:|' + ConfigOptions[13]);
	LogMessage('Function ParsePage - opStudio:|' + ConfigOptions[14]);
	LogMessage('Function ParsePage - opMPAA:|' + ConfigOptions[15]);
	LogMessage('Function ParsePage - opORating:|' + ConfigOptions[16]);
	LogMessage('Function ParsePage - opTags:|' + ConfigOptions[17]);
	LogMessage('Function ParsePage - opRDate:|' + ConfigOptions[18]);
	LogMessage('Function ParsePage - opBudget:|' + ConfigOptions[19]);
	LogMessage('Function ParsePage - opMoney:|' + ConfigOptions[20]);
	LogMessage('Function ParsePage - opTagline:|' + ConfigOptions[21]);
	LogMessage('Function ParsePage - opDescription:|' + ConfigOptions[22]);
	LogMessage('Function ParsePage - opLength:|' + ConfigOptions[23]);
	LogMessage('Function ParsePage - opAwards:|' + ConfigOptions[24]);
	LogMessage('Function ParsePage - opConnections:|' + ConfigOptions[25]);
	LogMessage('Function ParsePage - opFeatures:|' + ConfigOptions[26]);
	LogMessage('Function ParsePage - opEpisodes:|' + ConfigOptions[27]);
	//*)

	//Parse return in mode 'Search Movie URL'-----------------------------------------------------------------------
	If (Mode=smSearch) Then Begin
		titleValue := GetFieldValueXML('origtitle');
		If (Length(titleValue)= 0) Then titleValue := GetFieldValueXML('title');
		yearValue := GetFieldValueXML('year');
		If yearValue = '0' Then yearValue := '';  //Better no Year (blank) for the searches.
		LogMessage('Function ParsePage smSearch|' + IntToStr(Mode) + '|. Searching DownloadURL for MovieTitle|' + titleValue + '|' + ' MovieYear|' + yearValue + '||');

		//Call ParsePage_IMDBSearchName with the title value
		Result := ParsePage_IMDBSearchTitle(titleValue);
		//Parse the returned result of the search list.
		If Result = prError Then Begin  //No movie found, script finishes with error.
			Mode := smFinished;
			LogMessage('Function ParsePage - smSearch-prError END======================|');
		End;  //If Result=prError Then Begin should end here

		If Result = prList Then Begin  //A list of results was loaded; user choice is needed to exit script mode since PVD cannot directly download the user's choice because of HTTPS.
			Mode := smSearchList;
			LogMessage('Function ParsePage - smSearch-prList END======================|');
		End;  //If Result=prList Then Begin should end here

		If Result = prDownload Then Begin  //One result; no exit needed, just continue the script
			Mode := smNormal;
			LogMessage('Function ParsePage - smSearch-prDownload END======================|');
		End;  //If Result=prDownload Then Begin should end here
		Exit;
	End;  //If (Mode=smSearch) Then Begin should end here

	//Parse return of 'SearchList Movie URL'-----------------------------------------------------------------------
	If (Mode = smSearchList) Then Begin
		//The user have choosen the link.
		LogMessage('Function ParsePage mode smSearchList. Getting DownloadURL from the return of smSearchList');
		DownloadURL := StringReplace(URL, CHEAT_PREFIX_URL, '', True, False, False);  //Eliminate the CHEAT_PREFIX_URL to get the true movie link
		DownloadURL := StringReplace(DownloadURL, 'http:', 'https:', True, True, False);  //The direct url needed (no https redirection)
		LogMessage('Function ParsePage - Global Var: DownloadURL in Mode = smSearchList|' + DownloadURL + '||');
		Mode := smNormal;
		Result := prDownload;  //But exit not needed to download the page because now it is HTTPS
		LogMessage('Function ParsePage - With the proper movie URL, it calls for downloading the movie page.');

	End;  //If (Mode = smSearchList) Then Begin should end here

	//Parse with the Movie URL 'smNormal'------------------------------------------------------------------------------------
	If (Mode = smNormal) Then Begin
		//Get the script Overwrite Options saved in pvdconf.ini (Remember that PVD only saves the options on exit)
		//0=Do nothing, 1=Set If Empty, 2=Overwrite
		PvdConfigOptions := TextBetWeenFirst(FileToString(GetAppPath + 'pvdconf.ini'), SCRIPT_FILE_NAME + '.psf=', #13#10);
		LogMessage('Function ParsePage - Stored Script PVDConfigOptions is:|' + PVDConfigOptions + '||');
		LogMessage('Function ParsePage - The Script option of Poster position ' + IntToStr(opPoster) + ' is:|' + Copy(PVDConfigOptions, opPoster, 1) + '||');
		Result := prFinished;  //It will change to prListImage to download photos as ROUNDABOUT (to bypass a bug) or to prError in case of a major issue, with exiting.;

		//(*
		If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin

			//We need this to get directors when TV Series, because we integrated Series and Movies script
			If Length(MediaTypeHTML) > 0 Then Begin
				LogMessage('Function ParsePage - Raw MediaTypeHTML first 100 characters:|' + Copy(MediaTypeHTML, 1, 100));
				LogMessage('Function ParsePage - MediaTypeHTML total length:|' + IntToStr(Length(MediaTypeHTML)));
				//Step 1: Find the position of 'Title Type: ' after DownloadURL
				StartPos := PosFrom('Title Type: ', MediaTypeHTML, Pos(DownloadURL, MediaTypeHTML)) + Length('Title Type: ');

				//Step 2: Find the position of #13#10 (carriage return) after 'Title Type: '
				endPos := PosFrom(#13#10, MediaTypeHTML, StartPos);

				//Step 3: Extract the media type between those two positions
				If (StartPos > 0) And (endPos > StartPos) Then MediaType := Copy(MediaTypeHTML, StartPos, endPos - StartPos);

				LogMessage('Function ParsePage - MediaType after TextBetWeenFirst:|' + MediaType);
				AddFieldValueXML('category', MediaType);
				LogMessage('Function ParsePage - MediaType added as ~category~:|' + MediaType);

				//(*
				//Split the search results into an array
				ResultsNumber := ExplodeString(MediaTypeHTML, SearchResults, #13#10);  //Assuming each result is on a new line
				LogMessage('Function ParsePage - Number of results found:|' + IntToStr(ResultsNumber));

				//Process each result to identify the DownloadURL and corresponding Title Type
				If ResultsNumber = 0 Then Begin
					LogMessage('Function ParsePage - No MediaType results');
					If BYPASS_SILENT Then ShowMessage('Function ParsePage - No results found on IMDb nor via DuckDuckGo for the Title type:|' + MediaType + '. ' + #13#10 + #13#10 + 'Please try manual search.', SCRIPT_FILE_NAME);  //Show the entire message
					Result := prError;  //Set the result to error
					Exit;  //Exit the function to break the script
				End Else Begin
					For i := 0 To ResultsNumber - 1 Do Begin
						Line := SearchResults[i];
						LogMessage('Function ParsePage - Parsing Line Movie results:|' + Line);

						//Check if the current Line contains the DownloadURL
						If Pos(DownloadURL, Line) > 0 Then Begin
							LogMessage('Function ParsePage - Found DownloadURL:|' + DownloadURL);

							//Now extract the corresponding MediaType (Title Type)
							If Pos('Title Type: ', Line) > 0 Then Begin
								MediaType := Copy(Line, Pos('Title Type: ', Line) + Length('Title Type: '), Length(Line));
								MediaType := Trim(MediaType);
								LogMessage('Function ParsePage - Corresponding MediaType/Title Type:|' + MediaType);
							End Else Begin
								MediaType := 'No Title Type found';  //Default if no Title Type found
								LogMessage('Function ParsePage - No Title Type found, setting default to:|' + MediaType);
							End;  //If Pos('Title Type: ', Line) > 0 Then Begin should end here

							//Once we find the DownloadURL and MediaType, we break out of the loop
							Break;  //Exit the loop
						End;  //If Pos(DownloadURL, Line) > 0 Then Begin should end here
					End;  //For i := 0 To ResultsNumber - 1 Do Begin hould end here
				End;  //If ResultsNumber = 0 Then Begin should end here
				//*)
			End;  //If Length(MediaTypeHTML) > 0 Then Begin should end here

			//Information is spread across several pages. MovieID (CF~IMDbID~) (CF~IMDbID:~)
			MovieID := TextBetWeenFirst(DownloadURL, BASE_URL_PRE_TRUE, BASE_URL_SUF);
			LogMessage('Function ParsePage mode smNormal|' + IntToStr(Mode) + '|. Getting provider data for MovieID|' + MovieID + '||');
			AddCustomFieldValueByName('IMDbID', MovieID);
			AddCustomFieldValueByName('IMDbID:', MovieID);
			LogMessage('Function ParsePage - Get result IMDbID (CF~IMDbID~) (CF~IMDbID:~):|' + MovieID + '||');

			//Get ~url~
			If (0 = Pos(BASE_URL_PRE, StoredURL)) Then Begin  //Write the url if it doesn't exist
				//If (Length(DownloadURL) > 0) And (DownloadURL[Length(DownloadURL)] = '/') Then Delete(DownloadURL, Length(DownloadURL), 1);
				AddFieldValueXML('url', DownloadURL);
				LogMessage('Function ParsePage - Get result ~url~:|' + DownloadURL + '||');
			End;  //If (0 = Pos(BASE_URL_PRE, StoredURL)) Then Begin should end here

			//Get ~IMDb Movie Url~ (CF~IMDb.com~) and (CF~WaybackArchive IMDb URLs~)
			Movie_URL := DownloadURL;
			AddCustomFieldValueByName('IMDb.com', '<link url="' + Movie_URL + '">IMDb.com</link>');
			AddCustomFieldValueByName('WaybackArchive IMDb URLs', '<link url="https://web.archive.org/web/*/' + Movie_URL + '*">*IMDb.com*</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'business">Business</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'combined">Combined</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'fullcredits">Full Cast&Crew</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'awards">Awards</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'releaseinfo">ReleaseDates</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'technical">TechSpecs</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'parentalguide">ParentalGuide</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'keywords">PlotKeywords</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'plotsummary">PlotSummary</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'taglines">Taglines</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'movieconnections">Connections</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'soundtrack">Soundtracks</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'externalsites">MiscSites</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'dvd">DVD</link>  <link url="https://web.archive.org/web/*/' + Movie_URL + 'laserdisc">Laserdisc</link>');

			//Get ~MovieID1~ (CF~LDDbSearch~) And (CF~IMDbSearchUrl~) And (CF~OMDbAPIUrl~) And (CF~IMDb Movie Url~) And (CF~CompE~)
			MovieID1 := StringReplace(MovieID, 'tt', '', True, False, True);
			AddCustomFieldValueByName('LDDbSearch', '<link url="https://www.lddb.com/search/IMDb/' + MovieID1 + '">LaserDiscDbSearch</link>  <link url="https://www.soundtrack.net/search/?q=' + GetFieldValue(2) + '">Soundtrack.NetSearch</link>  <link url="https://store.intrada.com/s.nl?sc=16&category=&search=' + GetFieldValue(2) + '">Intrada</link>  <link url="https://www.aveleyman.com/?Film.aspx/' + GetFieldValue(2) + '">Aveleyman</link>  <link url="https://duckduckgo.com/?q=' + GetFieldValue(2) + '%20site%3Awww.aveleyman.com/">DDGAvSearch</link>  <link url="https://www.google.com/search?q=' + GetFieldValue(2) + '%20site%3Awww.aveleyman.com/">GoogleAvSearch</link>  <link url="https://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dmovies-tv&field-keywords=' + GetFieldValue(2) + '">AmazonSearch</link>  <link url="https://www.impawards.com/cgi-bin/htsearch?method=or&words=' + GetFieldValue(2) + '">IMPawards/cgi-bin</link>  <link url="https://www.impawards.com/search.php/' + GetFieldValue(2) + '">impawards.com</link>');
			//GetFieldValue(2) should be ~origtitle~
			Fullinfo1 := '';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.boxofficemojo.com/title/' + MovieID + '">BoxOfficeMojo</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://en.wikipedia.org/w/index.php?search=' + GetFieldValue(2) + '">Wikipedia</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.movieposterdb.com/search?category=title&q=' + MovieID + '">MoviePosterDB Info</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.dvdsreleasedates.com/search/?searchStr=' + GetFieldValue(2) + '">DVDs ReleaseDates</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dmovies-tv&field-keywords=' + GetFieldValue(2) + '">AmazonSearch</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dmovies-tv&field-keywords=' + GetFieldValue(2) + '%20' + GetFieldValue(5) + '">AmazonSearch1</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.allmovie.com/search/movies/' + GetFieldValue(2) + '">AllMovieSearch</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.themoviedb.org/search?query=' + GetFieldValue(2) + '">TMDBSearch</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.rottentomatoes.com/search/?search=' + GetFieldValue(2) + '">RottenTomatoesSearch</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.thetvdb.com/search?query=' + GetFieldValue(2) + '">TVDB Search</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.soundtrack.net/search/?q=' + GetFieldValue(2) + '">Soundtrack.NetSearch</link>  ';
			Fullinfo1:=Fullinfo1+'<link url="https://www.soundtrackcollector.com/catalog/search.php?searchon=all&searchtext='+GetFieldValue(2)+'">SoundCollSearch</link>  ';
			Fullinfo1:=Fullinfo1+'<link url="https://www.blu-ray.com/search/?quicksearch=1&quicksearch_country=all&quicksearch_keyword='+MovieID+'&section=theatrical">BR.comSearch</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://www.lddb.com/search/IMDb/' + MovieID1 + '">LaserDiscDb Search</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://ssl.ofdb.de/view.php?page=suchergebnis&SText=' + GetFieldValue(2) + '&Kat=IMDb">OFDb (DE) Search</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="https://cse.google.com/cse?cx= 004917987473580823572:eonwdtnjfi8&cof=forid%3a9&q=' + GetFieldValue(2) + '">IMPawards-cse</link>  ';
			Fullinfo1 := Fullinfo1 + '<link url="http:///www.impawards.com/cgi-bin/htsearch?method=or&words=' + GetFieldValue(2) + '">impawards.com/cgi-bin</link>  ';
			If Fullinfo1 <> '' Then Fullinfo1 := Fullinfo1;
			If Fullinfo1 <> '' Then AddCustomFieldValueByName('IMDbMovieLinksInfo', Fullinfo1);
			AddCustomFieldValueByName('IMDbExternalSitesUrl', '<link url="' + Movie_URL + 'releaseinfo">ReleaseDates</link>  <link url="' + Movie_URL + 'plotsummary">PlotSummary</link>  <link url="' + Movie_URL + 'companycredits">CompanyCredits</link>  <link url="' + Movie_URL + 'movieconnections">Connections</link>  <link url="' + Movie_URL + 'externalsites/#misc">MiscSites</link>  <link url="' + Movie_URL + 'externalsites#photos">MiscPhoto</link>');
			AddCustomFieldValueByName('IMDbSearchUrl', '<link url="https://www.imdb.com/find/?s=tt&q=' + StringReplace(GetFieldValueXML('title'), ' ', ' + ', True, True, False) + '">**Search IMDb**</link>  <link url="https://www.imdb.com/search/title?title=' + StringReplace(GetFieldValueXML('title'), ' ', ' + ', True, True, False) + '">Search IMDb</link>  ');
			AddCustomFieldValueByName('IMDbMoviesUrl', '<link url="' + Movie_URL + '">IMDb MovieUrl</link>  <link url="https://www.boxofficemojo.com/title/' + MovieID + '/">Box Office Mojo</link>  <link url="https://www.omdbapi.com/">OMDb API info</link>  <link url="https://www.omdbapi.com/apikey.aspx">OMDb API Key</link>');
			LogMessage('Function ParsePage - Get result Movie_URL needed for (CF~IMDbMoviesUrl~):|' + Movie_URL + '||');
			LogMessage('Function ParsePage - Get result MovieID needed for (CF~IMDbMoviesUrl~):|' + MovieID + '||');
			LogMessage('Function ParsePage_RTBASE - IMDbMoviesUrl field set:|' + '<link url="' + Movie_URL + '">IMDb MovieUrl</link>  ' + '<link url="https://www.boxofficemojo.com/title/' + MovieID + '/">Box Office Mojo</link>  ' + '<link url="https://www.omdbapi.com/">OMDb API info</link>  ' + '<link url="https://www.omdbapi.com/apikey.aspx">OMDb API Key</link>');
			AddCustomFieldValueByName('OMDbAPIUrl', '<link url="' + Movie_URL + '">IMDb MovieUrl</link>  <link url="https://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API info for IMDb</link>  <link url="http://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=full&tomatoes=true">OMDb API full info for IMDb</link>  <link url="https://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=full&r=xml&tomatoes=true">OMDb API full xml info for IMDb</link>  <link url="https://www.omdbapi.com/?s=' + GetFieldValueXML('title') + '&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API Search for IMDb</link>');
			LogMessage('Function ParsePage_RTBASE - OMDbAPIUrl field set:|' + '<link url="' + Movie_URL + '">IMDb MovieUrl</link>  ' + '<link url="https://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API info for IMDb</link>  ' + '<link url="http://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=full&tomatoes=true">OMDb API full info for IMDb</link>  ' + '<link url="https://www.omdbapi.com/?i=' + MovieID + '&apikey=[yourkey]&plot=full&r=xml&tomatoes=true">OMDb API full xml info for IMDb</link>  ' + '<link url="https://www.omdbapi.com/?s=' + GetFieldValueXML('title') + '&apikey=[yourkey]&plot=short&tomatoes=true">OMDb API Search for IMDb</link>');
			LogMessage('Function ParsePage - Get result OMDb API info_URL:|' + #13#10 + '<link url="https://www.omdbapi.com/">OMDb API info</link>  <link url="https://www.omdbapi.com/apikey.aspx">OMDb API Key</link>' + '||');
			Fullinfo := '';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + '">MainPage</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'reference">Reference</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'fullcredits">Full Cast&Crew</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'awards">Awards</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'releaseinfo">ReleaseDates</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'technical">TechSpecs</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'parentalguide">ParentsGuide</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'keywords">PlotKeywords</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'plotsummary">PlotSummary</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'locations">FilmLocations</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'taglines">Taglines</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'companycredits">CompanyCredits</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'movieconnections">Connections</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'soundtrack">Soundtracks</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'externalsites">MiscSites</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'externalsites#photos">MiscPhoto</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'externalsites#photo">MiscPhoto</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'mediaindex">PhotoGallery</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/top">IMDb Top 250</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/bottom">Lowest Rated</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/toptv">Top 250 TV</link>';
			If Fullinfo <> '' Then IMDB_URL := Fullinfo;
			If IMDB_URL <> '' Then AddCustomFieldValueByName('IMDb Url', IMDB_URL);
			//If IMDB_URL <> '' Then AddCustomFieldValueByName('IMDb Movie Url', IMDB_URL); Not added in my skin becaus it is duplicate to IMDb Movie Url
			LogMessage('Function ParsePage - Get result Fullinfo-IMDB_URL (CF~IMDb Movie Url~ ):|' + #13#10 + IMDB_URL + '||');

			//(*
			Fullinfo := '';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + '">MainPage</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'reference">Reference</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'fullcredits">Full Cast&Crew</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'awards">Awards</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'releaseinfo">ReleaseDates</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'technical">TechSpecs</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'parentalguide">ParentsGuide</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'keywords">PlotKeywords</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'plotsummary">PlotSummary</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'locations">FilmLocations</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'taglines">Taglines</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'companycredits">CompanyCredits</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'movieconnections">Connections</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'soundtrack">Soundtracks</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'externalsites">MiscSites</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'externalsites#photos">MiscPhoto</link>  ';
			Fullinfo := Fullinfo + '<link url="' + Movie_URL + 'mediaindex">PhotoGallery</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/top">IMDb Top 250</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/bottom">Lowest Rated</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/chart/toptv">Top 250 TV</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/search/title?title=' + StringReplace(GetFieldValueXML('title') + '&title_type=feature&view=simple&count=250', ' ', ' + ', True, True, False) + '">Search IMDb</link>  ';
			Fullinfo := Fullinfo + '<link url="https://www.imdb.com/find?s=tt&q=' + StringReplace(GetFieldValueXML('title'), ' ', ' + ', True, True, False) + '">**Search IMDb**</link>  ';
			If Fullinfo <> '' Then IMDB_URL := Fullinfo;
			If IMDB_URL <> '' Then AddCustomFieldValueByName('CompE', IMDB_URL);
			//If IMDB_URL <> '' Then AddCustomFieldValueByName('IMDb Movie Url', IMDB_URL);
			LogMessage('Function ParsePage - Get result Fullinfo-IMDB_URL (CF~CompE~ ):|' + #13#10 + IMDB_URL + '||')
		End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here
		//*)

		//Parse principal provider page = BASE_URL_PRE_TRUE (MainPage)------------------------------------------------------------------
		HTML := DownloadPage(DownloadURL);  //True page for parsing
		//LogMessage('Function ParsePage - MAIN PAGE IN PARSEPAGE HTML:|' + HTML);
		LogMessage('Function ParsePage - MAIN PAGE IN PARSEPAGE DownloadURL:|' + DownloadURL);
		LogMessage('Function ParsePage - Value of MainPageDownloaded before checking:|' + BoolToStr(MainPageDownloaded));
		If (0 = Length(HTML)) And (MainPageDownloaded) Then Begin  //Download error or no pages downloaded
			LogMessage('Function ParsePage - Checking if Mode is smFinished...');
			Mode := smFinished;
			LogMessage('Function ParsePage - Mode is smFinished');
			Result := prError;
			LogMessage('Function ParsePage - Download error or no pages downloaded.');
			Exit;
		End;  //If (0 = Length(HTML)) Then Begin should end here

		//Only parse the Main page if it was downloaded
		If MainPageDownloaded Then Begin

			If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each field that is not dynamic

				EnsurePosterDownloaded(HTML);
				HTML := HTMLToText(HTML);
				//LogMessage('Function ParsePage - MAIN PAGE IN Function ParsePage - :|' + HTML);
				LogMessage('Function ParsePage - Value of MainPageDownloaded in Function ParsePage - :|' + BoolToStr(MainPageDownloaded));
				Result := ParsePage_IMDBMovieBASE(HTML);

			End Else Begin

				HTML := HTMLToText(HTML);
				//LogMessage('Function ParsePage - MAIN PAGE IN Function ParsePage - :|' + HTML);
				LogMessage('Function ParsePage - Value of MainPageDownloaded in Function ParsePage - :|' + BoolToStr(MainPageDownloaded));
				Result := ParsePage_IMDBMovieBASE(HTML);
			End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

		End;  //If MainPageDownloaded Then Begin should end here

		//Set the script path manually
		ScriptPath := GetAppPath + 'Scripts\';
		FilePath := ScriptPath + 'Tmp\';
		LogMessage('Function ParsePage - ScriptPath set to:|' + ScriptPath);
		//Define file names
		FilePath := ScriptPath + 'Tmp\';
		FileTitleMain := 'downpage-UTF8_NO_BOM.htm';
		FileTitleReleaseInfo := 'downpage-UTF8_NO_BOM-ReleaseInfo.htm';
		FileTitleFullCredits := 'downpage-UTF8_NO_BOM-FullCredits.htm';
		FileTitleParentalGuide := 'downpage-UTF8_NO_BOM-ParentalGuide.htm';
		FileTitleReference := 'downpage-UTF8_NO_BOM-Reference.htm';
		FileTitleKeywords := 'downpage-UTF8_NO_BOM-Keywords.htm';
		FileTitleTechnical := 'downpage-UTF8_NO_BOM-Technical.htm';
		FileTitleAwards := 'downpage-UTF8_NO_BOM-Awards.htm';
		FileTitleMovieConnections := 'downpage-UTF8_NO_BOM-MovieConnections.htm';
		FileTitleReviews := 'downpage-UTF8_NO_BOM-Reviews.htm';
		FileTitleCompanyCredits := 'downpage-UTF8_NO_BOM-CompanyCredits.htm';
		FileTitleLocations := 'downpage-UTF8_NO_BOM-Locations.htm';
		FileTitleExternalSites := 'downpage-UTF8_NO_BOM-ExternalSites.htm';
		FileTitlePlotSummary := 'downpage-UTF8_NO_BOM-PlotSummary.htm';
		FileTitleCriticReviews := 'downpage-UTF8_NO_BOM-CriticReviews.htm';

		//Extract PersonID from DownloadURL
		//PersonID := TextBetWeenFirst(DownloadURL, '/name/', '/');

		//Parse ReleaseInfo Also known as provider page = BASE_URL_AKA (ReleaseInfo.htm)-------------------------------------------------------------------

		If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin  //This applies for each function

			If ReleaseInfoPageDownloaded Then Begin
				If GET_FULL_AKA Then Begin
					DownloadURL := StringReplace(BASE_URL_AKA, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageReleaseInfo(FileTitleReleaseInfo);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieAKA(HTML);
					LogMessage('Function ParsePage - Value of ReleaseInfoPageDownloaded in Function ParsePage - :|' + BoolToStr(ReleaseInfoPageDownloaded));
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_AKA Then Begin should end here
			End;  //If ReleaseInfoPageDownloaded Then Begin should end here

			//Parse FullCredits Cast provider page = BASE_URL_CAST (FullCredits.htm)---------------------------------------------------------------------------
			If Not GET_FULL_CREDIT Then Begin
				LogMessage('Function ParsePage - Skip all downloads entirely, since GET_FULL_CREDIT is False' + '||');
			End Else Begin  //GET_FULL_CREDIT_FROM_REFERENCE for movies only, and for series from FullCredits page
				LogMessage('Function ParsePage - if it is Series there will be MediaType / ~category~ prior to checking:|' + MediaType + ' / ' + GetFieldValueXML('category') + '||');
				LogMessage('Function ParsePage - Value of FullCreditsPageDownloaded:|' + BoolToStr(FullCreditsPageDownloaded));

				If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin
					//It's a series
					If FullCreditsPageDownloaded Then Begin
						DownloadURL := StringReplace(BASE_URL_CAST, '%IMDB_ID', MovieID, True, True, False);
						HTML := DownloadPageFullCredits(FileTitleFullCredits);  //Full credits page for parsing
						HTML := HTMLToText(HTML);
						ResultTmp := ParsePage_IMDBMovieCREDIT(HTML);
						If Not (ResultTmp = prFinished) Then Result := ResultTmp;
					End;  //If FullCreditsPageDownloaded Then Begin should end here for Series
				End Else Begin  //Not series
					//It's a movie
					If GET_FULL_CREDIT_FROM_REFERENCE Then Begin
						//Download and parse the Reference page
						DownloadURL := StringReplace(BASE_URL_CAST, '%IMDB_ID', MovieID, True, True, False);
						HTML := DownloadPageReference(FileTitleReference);  //Reference page for parsing
						EnsurePosterDownloaded(HTML);
						HTML := HTMLToText(HTML);
						//Check for error and fallback if reference page returns a 404 error
						If (Pos('error_code_404"', HTML) > 0) Then Begin
							LogMessage('Function ParsePage - Reference page returned 404 error, switching to FullCredits page...');
							DownloadURL := StringReplace(BASE_URL_CAST, '%IMDB_ID', MovieID, True, True, False);
							HTML := DownloadPageFullCredits(FileTitleFullCredits);
							EnsurePosterDownloaded(HTML);
							HTML := HTMLToText(HTML);
						End;  //If (Pos('error_code_404"', HTML) > 0) Then Begin should end here

						ResultTmp := ParsePage_IMDBMovieCREDIT(HTML);
						If Not (ResultTmp = prFinished) Then Result := ResultTmp;
					End Else Begin  //NOT GET_FULL_CREDIT_FROM_REFERENCE
						//Download and parse the FullCredits page directly
						DownloadURL := StringReplace(BASE_URL_CAST, '%IMDB_ID', MovieID, True, True, False);
						HTML := DownloadPageFullCredits(FileTitleFullCredits);  //Full credits page for parsing
						EnsurePosterDownloaded(HTML);
						HTML := HTMLToText(HTML);
						ResultTmp := ParsePage_IMDBMovieCREDIT(HTML);
						If Not (ResultTmp = prFinished) Then Result := ResultTmp;
					End;  //If GET_FULL_CREDIT_FROM_REFERENCE Then Begin should end here
				End;  //If (Pos('Series', MediaType) > 0) Or (Pos('Series', GetFieldValueXML('category')) > 0) Then Begin should end here
			End;  //If Not GET_FULL_CREDIT Then Begin should end here

			//Parse ParentalGuide Certification provider page = BASE_URL_MPAA (ParentalGuide.htm)------------------------------------------------------------------
			If ParentalGuidePageDownloaded Then Begin
				If GET_FULL_MPAA Then Begin
					DownloadURL := StringReplace(BASE_URL_MPAA, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageParentalGuide(FileTitleParentalGuide);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieMPAA(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_MPAA Then Begin should end here
			End;  //If ParentalGuidePageDownloaded Then Begin should end here

			//Parse Plot Keywords provider page = BASE_URL_PLOTKEYWORDS (Keywords.htm)---------------------------------------------------------------------------
			If KeywordsPageDownloaded Then Begin
				If GET_FULL_PLOTKEYWORDS Then Begin
					DownloadURL := StringReplace(BASE_URL_PLOTKEYWORDS, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageKeywords(FileTitleKeywords);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMoviePLOTKEYWORDS(HTML);
					AddCustomFieldValueByName('Download_URL', '<link url="' + DownloadURL + '">IMDB PLOTKEYWORDS</link>  ');
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_PLOTKEYWORDS Then Begin should end here
			End;  //If KeywordsPageDownloaded Then Begin should end here

			//Parse Technical Specifications provider page = BASE_URL_TECH (Technical.htm)------------------------------------------------------
			If TechnicalPageDownloaded Then Begin
				If GET_FULL_FEATURES Then Begin
					DownloadURL := StringReplace(BASE_URL_TECH, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageTechnical(FileTitleTechnical);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieTECHNICAL(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_FEATURES Then Begin should end here
			End;  //If TechnicalPageDownloaded Then Begin should end here

			//Parse Awards provider page = BASE_URL_AWARDS (Awards.htm)---------------------------------------------------------------------------
			If AwardsPageDownloaded Then Begin
				If GET_FULL_AWARDS Then Begin
					DownloadURL := StringReplace(BASE_URL_AWARDS, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageAwards(FileTitleAwards);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieAWARDS(HTML);
					If Not (ResultTmp = prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_AWARDS Then Begin should end here
			End;  //If AwardsPageDownloaded Then Begin should end here

			//Parse MovieConnections provider page = BASE_URL_CONNECTIONS (MovieConnections.htm)---------------------------------------------------------------------------
			LogMessage('Function ParsePage - Value of MovieConnectionsPageDownloaded:|' + BoolToStr(MovieConnectionsPageDownloaded));

			If MovieConnectionsPageDownloaded Then Begin
				If GET_FULL_CONNECTIONS Then Begin
					LogMessage('Function ParsePage - MovieConnections Value of GET_FULL_CONNECTIONS:|' + BoolToStr(GET_FULL_CONNECTIONS));
					DownloadURL := StringReplace(BASE_URL_CONNECTIONS, '%IMDB_ID', MovieID, True, True, False);
					LogMessage('Function ParsePage - MovieConnections Value of DownloadURL:|' + DownloadURL);
					HTML := DownloadPageMovieConnections(FileTitleMovieConnections);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieCONNECTIONS(HTML);
					If Not (ResultTmp = prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_CONNECTIONS Then Begin should end here
			End;  //If MovieConnectionsPageDownloaded Then Begin should end here

			//Parse Plotsummary provider page =  BASE_URL_PLOTSUMMARY (PlotSummary.htm)---------------------------------------------------------------------------
			If PlotSummaryPageDownloaded Then Begin
				If GET_FULL_PLOTSUMMARY Then Begin
					DownloadURL := StringReplace(BASE_URL_PLOTSUMMARY, '%IMDB_ID', MovieID, True, True, False);
					EnsurePosterDownloaded(HTML);
					HTML := DownloadPagePlotSummary(FileTitlePlotSummary);  //True page for parsing
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMoviePLOTSUMMARY(HTML);
					AddCustomFieldValueByName('Plotsummary_URL', '<link url="' + DownloadURL + '">IMDB_PLOTSUMMARY</link>');
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_PLOTSUMMARY Then Begin should end here
			End;  //If PlotSummaryPageDownloaded Then Begin should end here

			//Parse CompanyCredits provider page = BASE_URL_COMPANYCREDITS (CompanyCredits.htm)---------------------------------------------------------------------------
			If CompanyCreditsPageDownloaded Then Begin
				If GET_FULL_COMPANYCREDITS Then Begin
					LogMessage('Function ParsePage - CompanyCredits Value of GET_FULL_COMPANYCREDITS:|' + BoolToStr(GET_FULL_COMPANYCREDITS));
					DownloadURL := StringReplace(BASE_URL_COMPANYCREDITS, '%IMDB_ID', MovieID, True, True, False);
					EnsurePosterDownloaded(HTML);
					HTML := DownloadPageCompanyCredits(FileTitleCompanyCredits);  //True page for parsing
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieCOMPANYCREDITS(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_FULL_COMPANYCREDITS Then Begin should end here
			End;  //If CompanyCreditsPageDownloaded Then Begin should end here

			//(*
			//TO ADD PARSING CALLS FOR ALL PAGES ESPECIALLY ALLOWED BY DOWNLOAD_MORE_PAGES

			//Parse Reviews provider page = BASE_URL_CRITICREVIEWS (CriticReviews.htm)---------------------------------------------------------------------------
			If CriticReviewsPageDownloaded Then Begin
				If (DOWNLOAD_MORE_PAGES) Then Begin
					DownloadURL := StringReplace(BASE_URL_CRITICREVIEWS, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageCriticReviews(FileTitleCriticReviews);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieCRITICREVIEWS(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If (DOWNLOAD_MORE_PAGES) Then Begin should end here
			End;  //If CriticReviewsPageDownloaded Then Begin should end here
			//*)

			{
			(*
			//Parse Reference provider page =  BASE_URL_REFERENCE (Reference.htm)---------------------------------------------------------------------------
			If ReferencePageDownloaded Then Begin
				If GET_REFERENCE Then Begin
					DownloadURL := StringReplace(BASE_URL_REFERENCE, '%IMDB_ID', MovieID, True, True, False);
					HTML := DownloadPageReference(FileTitleReference);  //True page for parsing
					EnsurePosterDownloaded(HTML);
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieREFERENCE(HTML);
					If Not (PlotSummaryPageDownloaded) Then Begin
					AddCustomFieldValueByName('Plotsummary_URL', '<link url="' + DownloadURL + '">IMDB_PLOTSUMMARY</link>');
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If GET_REFERENCE Then Begin should end here
			End;  //If ReferencePageDownloaded Then Begin should end here
			//*)
			//}

			{
			//In the future maybe
			//Parse Reviews provider page = BASE_URL_REVIEWS (Reviews.htm)---------------------------------------------------------------------------
			If ReviewsPageDownloaded Then Begin
				If DOWNLOAD_MORE_PAGES Then Begin
					DownloadURL := StringReplace(BASE_URL_REVIEWS, '%IMDB_ID', MovieID, True, True, False);
					EnsurePosterDownloaded(HTML);
					HTML := DownloadPageReviews(FileTitleReviews);  //True page for parsing
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieREVIEWS(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If DOWNLOAD_MORE_PAGES Then Begin should end here
			End;  //If ReviewsPageDownloaded Then Begin should end here

			//Parse Locations provider page = BASE_URL_LOCATIONS (Locations.htm)---------------------------------------------------------------------------
			If LocationsPageDownloaded Then Begin
				If DOWNLOAD_MORE_PAGES Then Begin
					DownloadURL := StringReplace(BASE_URL_LOCATIONS, '%IMDB_ID', MovieID, True, True, False);
					EnsurePosterDownloaded(HTML);
					HTML := DownloadPageLocations(FileTitleLocations);  //True page for parsing
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieLOCATIONS(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If DOWNLOAD_MORE_PAGES Then Begin should end here
			End;  //If LocationsPageDownloaded Then Begin should end here

			//Parse ExternalSites provider page = BASE_URL_EXTERNALSITES (ExternalSites.htm)---------------------------------------------------------------------------
			If ExternalSitesPageDownloaded Then Begin
				If DOWNLOAD_MORE_PAGES Then Begin
					DownloadURL := StringReplace(BASE_URL_EXTERNALSITES, '%IMDB_ID', MovieID, True, True, False);
					EnsurePosterDownloaded(HTML);
					HTML := DownloadPageExternalSites(FileTitleExternalSites);  //True page for parsing
					HTML := HTMLToText(HTML);
					ResultTmp := ParsePage_IMDBMovieEXTERNALSITES(HTML);
					If Not (ResultTmp=prFinished) Then Result := ResultTmp;
				End;  //If DOWNLOAD_MORE_PAGES Then Begin should end here
			End;  //If ExternalSitesPageDownloaded Then Begin should end here
			//}

		End;  //If Not (UPDATE_DYNAMIC_VALUES_ONLY) Then Begin should end here

		//Date ~Updated~ (choose simple or verbose version)
		Date := DateToStr(CurrentDateTime);
		//AddFieldValueXML('viewdate', Date);  //Only date, don't admit time-. Set Seen value at the same time.
		//AddFieldValueXML('moddate', Date + ' ' + TimeToStr(CurrentDateTime));  //Block the dB saving
		ExplodeString(Date, DateParts, '-');
		Date := DateParts[2] + '.' + DateParts[1] + '.' + DateParts[0];
		Date := StringReplace(Date, '01.', '1.', True, True, False);
		Date := StringReplace(Date, '02.', '2.', True, True, False);
		Date := StringReplace(Date, '03.', '3.', True, True, False);
		Date := StringReplace(Date, '04.', '4.', True, True, False);
		Date := StringReplace(Date, '05.', '5.', True, True, False);
		Date := StringReplace(Date, '06.', '6.', True, True, False);
		Date := StringReplace(Date, '07.', '7.', True, True, False);
		Date := StringReplace(Date, '08.', '8.', True, True, False);
		Date := StringReplace(Date, '09.', '9.', True, True, False);
		//AddCustomFieldValueByName('Updated', Date);  //(Left for FA Script)
		//AddCustomFieldValueByName('RTUpdated', Date + ' at ' + TimeToStr(CurrentDateTime));  //Saved for RottenTomatoes
		AddCustomFieldValueByName('IUpdated', Date + ' at ' + TimeToStr(CurrentDateTime) + ' • ' + SCRIPT_FILE_NAME + ' ' + SCRIPT_VERSION);  //Annoying
		LogMessage('Function ParsePage - Provider data info retreived Ok in ' + DateToStr(CurrentDateTime) + ' ' + TimeToStr(CurrentDateTime) + '| (~Updated~)');

		AddCustomFieldValueByName('Updated0', ' Overall on ' + Date + ' at ' + TimeToStr(CurrentDateTime) + ' • ' + SCRIPT_FILE_NAME + ' ' + SCRIPT_VERSION);

		Mode := smFinished;
		LogMessage('Function ParsePage smNormal END======================|');
		Exit;
	End;  //If (Mode=smNormal) Then Begin should end here

	//Parse with the Movie URL 'smFinished'------------------------------------------------------------------------------------
	If (Mode = smFinished) Then Begin  //Needed because of the PHOTO_DWN_RONDABOUT
		Mode := smFinished;
		LogMessage('Function ParsePage - Parse with the Movie URL "smFinished" - END======================|');
		Result := prFinished;
		Exit;
	End;  //If (Mode=smFinished) Then Begin should end here

	//Parse with unknown mode-----------------------------------------------------------------------------------------------

	Result := prError;
	Exit;

End;//BlockClose
//*)

//OBLIGATORY CALLBACK PRINCIPAL FUNCTION=========================================================================BlockClose

//IDEAS HERE
{
Step-by-step logic:
Get current rank and date

Check if the rank is valid (not '0' or '')

Check if the rank is different from the last logged one

Append a new line to TOP_250_History with format: Rank, YYYY-MM-DD

CurrentRank := GetCustomFieldValueByName('TOP_250');
If (CurrentRank <> '') And (CurrentRank <> '0') Then Begin
	Date := DateToStr(CurrentDateTime);  //Format: YYYY-MM-DD
	History := GetCustomFieldValueByName('TOP_250_History');

	//Check if last line already has this rank
	LastLine := LastLineOfMemo(History);  //You may need to write this helper
	If Pos(CurrentRank + ',', LastLine) <> 1 Then Begin
		NewEntry := CurrentRank + ', ' + Date;
		If History <> '' Then
			History := History + #13#10 + NewEntry
		Else
			History := NewEntry;
		AddCustomFieldValueByName('TOP_250_History', History);
		LogMessage('Appended to TOP_250_History:|' + NewEntry);
	End Else Begin
		LogMessage('TOP_250 rank unchanged; no update to history.');
	End;  //If Pos(CurrentRank + ',', LastLine) <> 1 Then Begin should end here
End;  /If (CurrentRank <> '') And (CurrentRank <> '0') Then Begin should end here


}


{
History of changes to the script for downloading movies info from IMDb.com
---------------------------------------------

---------------------------------------------
CHANGE LOG :
V 4.2.1.1-afrocuban (11/13/2025) afrocuban: Page File Handling Helpers
-------------------------------------------------------------------------------
- Added new helper function `WaitForPageFile` to handle page download stabilization:
	• Waits for presence of target HTML file with escalating retry intervals.
	• Provides user options (Cancel, Retry, Ignore) when internet connection issues persist.
	• Ensures safe file read with UTF-8 conversion and logging.
- Added new helper function `ReadPageFile` to simplify reading FilmAffinity temporary page files:
	• Centralized logic for checking file existence, reading content, and encoding conversion.
	• Reduces repetitive code across 15+ page download functions.
- Refactored existing page download functions to use `WaitForPageFile` and `ReadPageFile`, improving maintainability and consistency.
- Logging updated to reflect new helper usage for clearer diagnostics.
- Fixed entire script for new IMDb HTML layout changes.
- Significantly improved the stability and speed of `Selenium_Chrome_Movie_Additional_pages_v4.py`.
- Isolated and commented out function `DownloadPageReference`, but left it for potential future re-use.
- Redesigned Selenium Movie Scripts Configurator window:
	• Options now displayed across multiple lines instead of one long line.
	• Removed options for the -reference page.

V 4.1.0.1 (05/11/2025) afrocuban
--------------------------------
- Introduced procedure `EnsurePosterDownloaded` to allow downloading posters from any page.
- Fixed pages due to layout changes.
- Improved `ParsePage_IMDBMovieBASE` function.
- Revised MessageBox now includes Cancel, Retry, or Continue (Ignore).
	NOTE: If you press Ignore you will not get data from that page, so consider Retry or Cancel and start download again.
	IMDb continues to make data retrieval more difficult.
- Script Configurator descriptions adjusted to reflect actual processes.
- In corresponding Selenium scripts, page download speed significantly improved.
- In corresponding Selenium scripts, title searching fixed.

V 4.0.0.1 (31/01/2025) afrocuban
--------------------------------
- Full and complete transition to Selenium. No more instances or references to PVdBDownPage.
	Huge thanks to VVVEasy and Ivek for maintaining a decade-long option to keep PVD alive with it.
- Search function restored in the script with thumbnails in the search window.
- Full implementation of `PvdConfigOptions`, important for optimization and especially useful when refreshing only a specific set of data.
- Starting positions provided for all fields in section "Field Overwrite Options position in pvdconf.ini".
- No more pop-up windows stealing focus! In earlier versions, the downpage-UTF8_NO_BOM.htm file was repeatedly downloaded and deleted to parse different pages. Each time this occurred, a pop-up window would steal focus. Thanks to a different approach in this script, which now downloads separate pages in parallel using Selenium, as well as the special `PurgeTmpFiles` procedure, this focus-stealing issue is resolved.
- Script cleaned and optimized as much as possible at the moment.

V 3.0.0.1 (05/01/2025) afrocuban (THANKS TO IVEK'S HUGE HELP)
-------------------------------------------------------------
- Studio2 comma-separated custom field.
- Custom Cast and Director.

V 1.4.5.3 (24/09/2024) Ivek23
-----------------------------
- Fixed code parts for User Reviews in `IMDB_[EN] [HTTPS] _Test_2` version script.

V 1.4.5.2 (16/07/2024) Ivek23
-----------------------------
- Fixed code parts for User Reviews, Technical Specifications, and Plot (Summaries)
  in `IMDB_[EN] [HTTPS] _Test_2` version script.

V 1.0.0.0 (20/05/2018) VVV: Initial public release
--------------------------------------------------

---------------------------------------------
FIELD USE:
- Personal Video Database field names in comments are enclosed in "~" so they are easier to find in the script.
- The WEB_SPECIFIC commentary points out the specific text for Web fields.
- Use the Log PVdB debug window to look for search errors.

Important note:
- These scripts do not use the GET PVdB function for downloading pages (this allows the use of HTTPS pages).
- Proper Selenium scripts are provided starting from version 4.x and must be placed in the SCRIPTS folder of PVD.
- Previously, a specific program "PVdBDownPage" AutoHotKey script was used.
- Required external files in the SCRIPTS folder: `%Path%\PVdBDownPage.exe`

FOOTNOTES:
1. Control the use of standard fields using the "Overwrite Fields" plugin preferences in the main PVD program:
	Preferences > Plugins > 'Script Name' > Overwrite fields to control how these items are updated.
2. Tips for adapting the script:
	• Search WEB_SPECIFIC commentary to adapt the specific Web text of fields.
	• Script execution:
		0) Get results of "Obligatory callback Functions".
		1) `GetDownloadURL` (Obligatory callback Function): Returns the URL to be downloaded by
		the main application and Then passed to the script’s `ParsePage` function as text.
		It may have several modes depending on the Script mode (Global Var Mode = smSearch, smNormal, smFinished).
		2) `ParsePage` (Obligatory callback Function): Receives the text of the downloaded web page
		passed to the main application in the `GetDownloadURL` function.
		It has several modes depending on the Script mode (Global Var Mode = smSearch, smNormal, smFinished).

KNOWN ISSUES (Many already resolved):
1. For compiling requests, functions must be defined in the script before use (not in order of execution).
2. For search texts locating fields in the Web page, a Null '' value is not valid.
	Replace all escaped HTML characters (like &lt;, &gt;, &amp;, &quot;) with normal characters (<, >, &, ").
3. If desired, create custom fields ~IMDB_Votes~, ~TOP_250~ for storing the number of votes and the TOP250 IMDb list.
4. If the MPAA USA rating is not found or is incorrect, Then get the Spain certification (If it exists) and convert it
	to USA-KODI values. If this fails, try to get the rating from the "user" folder names.
5. Cast & Crew field info names:
	• Directed by
	• Writing Credits  //NO (WGA)
	• Cast (in credits order)  //Only data info in normal Actors field
	• Produced by
	• Music by
	• Cinematography by  //NO
	• Thanks
6. Connections field info names (newly added, never before existed in the script):
	• Alternate-language version of
	• Edited_from
	• Edited_into
	• Featured_in
	• Features
	• Followed_by
	• Follows
	• Referenced_in
	• References
	• Remade_as
	• Remake_of
	• Spin_off
	• Spin_off_from (Spun_off_from)
	• Spoofed_in
	• Spoofs
	• Version_of

SCRIPT STRUCTURE:
1. Script data and user options constants
2. Useful generic constants
3. Global variables
4. Obligatory PVD callback Functions:
	GetScriptVersion, GetScriptName, GetScriptDesc, GetBaseURL, GetScriptLang, GetScriptType,
	GetCurrentMode, GetDownloadURL
	(Note: `ParsePage` is at the end of the file for compiling requests).
5. Optional PVD callback Functions:
	GetRatingName, GetCodePage, GetDownloadMethod, GetPrefixMode
6. User functions and procedures (with their constants)
7. Obligatory PVD callback function `ParsePage` (at the end of the file for compiling requests)

CHANGE LOG :
			V 1.4.5.3 (24/09/2024) Ivek23: Fixed code parts for User Reviews in IMDB_[EN] [HTTPS] _Test_2 version script
			V 1.4.5.2 (16/07/2024) Ivek23: Fixed code parts for User Reviews, Technical Specifications and Plot (Summaries) in IMDB_[EN] [HTTPS] _Test_2 version script
			V 1.4.5.1 (18/05/2024) Ivek23: Fixed code parts for Duration and Tags in IMDB_[EN] [HTTPS] _Test_2 version script
			V 1.4.5.0 (18/12/2023) Ivek23: Test new IMDB_[EN] [HTTPS] _Test_2 version
			V 1.4.2.8 (20/03/2023) Ivek23: Test new IMDB_[EN] [HTTPS] _Test_1 version
			V 1.4.2.7 (09/01/2023) Ivek23: Test new IMDB_[EN] [HTTPS] _Test_2 version
			V 1.4.2.6 (28/06/2022) Ivek23: Test new IMDB_[EN] [HTTPS] _Test_2 version
			V 1.4.2.5 (28/06/2022) Ivek23: Test new IMDB_[EN] [HTTPS] _Test_1 version
			V 1.4.2.2 (07/12/2021) Ivek23: Corrected Rumtime parts of the code.
				See the forum post: http://www.videodb.info/forum_en/index.php/topic, 4134.msg21570.html#msg21570
			V 1.4.2.1 (28/10/2021) Ivek23: Release new final IMDB_[EN][HTTPS] version
					Ivek23: Corrected parts of the code with IMDB new layout.
					See the forum post: http://www.videodb.info/forum_en/index.php/topic, 4134.msg21506.html#msg21506
			V 1.4.2.0.3 (11/10/2021) Ivek23: Test new IMDB_[EN][HTTPS]_RC3a1 version
			V 1.4.2.0.2 (06/10/2021) Ivek23: Test new IMDB_[EN][HTTPS]_RC3a version
			V 1.4.2.0.1 (26/09/2021) Ivek23: Test new IMDB_[EN][HTTPS]_RC3 version
			V 1.4.2.0 (07/08/2021) Ivek23: Release new final IMDB_[EN][HTTPS] version
				Ivek23: ParsePage_IMDBMovieBASE = Corrected and fixed to the multiple parts (pieces) of code due to changes source code with IMDB new layout.
				See the forum post: http://www.videodb.info/forum_en/index.php/topic, 4134.msg21434.html#msg21434
			V 1.4.1.9.1 (22/07/2021) Ivek23: Test new IMDB_[EN][HTTPS]_RC1 version
			V 1.4.1.9 (19/07/2021) Ivek23: Test new IMDB_[EN][HTTPS]_RC version
			V 1.4.1.8 (06/07/2021) Ivek23: Test new IMDB_[EN] [HTTPS] _Test version
			V 1.4.1.7 (04/07/2021) Ivek23: Test new version
			V 1.4.1.5 (27/10/2020) Ivek23: ParsePage_IMDBMovieCREDIT (Full Cast and Crew section) = Corrected parts of the code. See the forum post: http://www.videodb.info/forum_en/index.php/topic, 4134.msg21196.html#msg21196
			V 1.4.1.4 (19/10/2020) Ivek23: ParsePage_IMDBMovieCREDIT (Full Cast and Crew section) = Corrected parts of the code.
			V 1.4.1.3 (01/05/2020) Ivek23: Added some new custom fields. Made many minor fixes in several pieces of code.
				See the forum post: http://www.videodb.info/forum_en/index.php/topic, 4141.0.html
			V 1.4.1.2 (10/01/2020) Ivek23: Added "IMDb.com" url links for afrocuban request per forum post: http://www.videodb.info/forum_en/index.php/topic, 4154.msg21035.html#msg21035.
			V 1.4.1.1 (20/06/2019) Ivek23: ParsePage_PLOTKEYWORDS small corrections and fix in the parts of the code 18-19/6/2019 forum alerts.
			V 1.4.1.0 (10/02/2019) Ivek23: Added ParsePage_PLOTSUMMARY.Ivek23 corrections and improvements since last version (see forum)
			V 1.4.0.0 (05/01/2019) Ivek23: Added ParsePage_PLOTKEYWORDS.Ivek23 corrections since last version (see forum).
			V 1.3.1.0 (22/11/2018) Ivek23: ParsePage_IMDBMovieAKA small change in the source code and was missing the name for the country.
			V 1.3.0.0 (28/10/2018) New parameter USE-SAVED-PVDCONFIG for avoid download page if the Overwrite Options of the Script in the pvdconf.ini are 'Do Nothing'.
				Remember that PDV only save the pvdconf.ini in exit.
			V 1.2.0.3 (20/10/2018) Improvement of search stored URL. Better script flow control. Only get FULL_AKA in MediaType='Movie'. More Ivek23 corrections
			(*  V 1.2.0.2 (07/10/2018) Managed IMDB url's not finish in BASE-URL-SUF='/'and principal page download errors.  *)
			V 1.2.0.1 (19/09/2018) Ivek23: Corrected parts of the code 18-19/9/2018 forum alerts. Removed PRESERVE-PVD-DESCRIPTION-SETTING.
			V 1.2.0.0 (11/09/2018) VVV: PVdBScriptConfig.ini -> Bug corrected "GET-FULL-FEATURES"
				Ivek23: ParsePage_IMDBMovieCREDIT (Full Cast and Crew section) = Repaired pieces of code for transmitting actors information
				Ivek23: ParsePage_IMDBSearchTitle = Corrected missing posters in search movies results.
				Ivek23: ParsePage_IMDBMovieMPAA = Corrected parts of the code.
				Ivek23: ParsePage = Added compatibility with CustomFields ~IMDbID~, ~Updated~ (last needed because is not possible save in ~moddate~).
				Ivek23, VVV: ParsePage_IMDBMovieBASE = Corrected to the API evolution. Now get "keywords" in ~tags~ (not in ~category~). Get ~origlang~.
					Added compatibility with CustomFields ~Bottom 100~, ~Metascore~, ~User Reviews~
					New script parameter PRESERVE-PVD-DESCRIPTION-SETTING = Avoid double use of ~description~ and ~comment~ using only the user check fields table selection otherwise try get "Storyline" and "plot_Summary".
				Ivek23, VVV: ParsePage_IMDBMovieTECHNICAL = Added compatibility with CustomFields ~ImdbTechSpecs~ (original PVD ~features~ can be disabled in the program check fields table)
			V 1.1.0.0 (08/08/2018) Ivek23, VVV: Movie Technical Specs page retreive in Features field (base page or full).
			V 1.0.0.2 (06/08/2018) VVV: Set the AddAward( ... Year ...) = EventYear (same in People script)
			V 1.0.0.1 (01/08/2018) VVV: Change values of CHEAT-PREFIX-URL and DUMMY-HTML-FILE. Little improvements.
			V 1.0.0.0 (20/05/2018) VVV: Initial public release
---------------------------------------------
	5. Cast & Crew field info names:
	•   Directed by
	•   Writing Credits  //NO (WGA)
	•   Cast (in credits order)  //Only data info in normal Actors field
	•   Produced by
	• Music by
	• Cinematography by  //NO
	• Film Editing by  //NO
	• Casting By  //NO
	• Production Design by  //NO
	• Art Direction by  //NO
	• Set Decoration by  //NO
	• Costume Design by  //NO
	• Production Management  //NO
	• Second Unit Director or Assistant Director  //NO
	• Special Effects by  //NO
	• Visual Effects by  //NO
	• Casting Department  //NO
	• Location Management  //NO
	• Music Department  //NO
	• Thanks
---------------------------------------------
	SCRIPT_NAME = '';  //The most complete information provider
	SCRIPT_DESC = '';
	SCRIPT_VERSION = '';
	SCRIPT_TYPE = ''stMovies'';
	SCRIPT_LANG = ''$09'';  //English //$0a es-Spanish   $0c fr-French   $09 en-English
	RATING_NAME = 'IMDB';  //PVD has ~imdbrating~ for this value
	CODE_PAGE = 65001;  //28591=ISO 8859-1 Latin 1; Western European (ISO). Use: 65001=Unicode (UTF-8) | 0=for Autodetect	Autodetect
---------------------------------------------
TYPES AND FUNCTIONS
Additional types and functions that can be used in scripts:
Types
	TWIDEARRAY : array of String
Field functions
	procedure AddSearchResult(Title1, Title2, Year, URL, PreviewURL : String)
	procedure AddFieldValue(AField: Integer; AValue : String)
	procedure AddMoviePerson(Name, TransName, Role, URL : String; AType : Byte)
	procedure AddPersonMovie(Title, OrigTitle, Role, Year, URL : String; AType : Byte)
	procedure AddAward(Event, Award, Category, Recipient, Year: String; const Won : Boolean)
	procedure AddAwardEx(Event, Award, Category, RecipientVal1, RecipientVal2, Year : String; const Won : Boolean);
	procedure AddConnection(Title, OrigTitle, Category, URL, Year: String)
	procedure AddEpisode(Title, OrigTitle, Description, URL, Year, Season, Episode : String)
String functions
	function Pos(Substr : String; Str: String): Integer
	function PosFrom(const SubStr, Str : String; FromIndex : Integer) : Integer
	function LastPos(const SubStr, Str : String) : Integer
	function PrevPos(const SubStr, Str : String; APos : Integer) : Integer
	function RemoveTags(AText : String; doLineBreaks : Boolean) : String
	function ExplodeString(AText : String; var Items : TWideArray; Delimiters : String) : Integer
	function Copy(S: String; Index, Count: Integer): String
	procedure Delete(var S: String; Index, Count: Integer)
	procedure Insert(Source: String; var Dest: String; Index: Integer)
	function Length(S: String): Integer
	function Trim(S: String): String
	function CompareText(S1, S2: String): Integer
	function CompareStr(S1, S2: String): Integer
	function UpperCase(S: String): String
	function LowerCase(S: String): String
	function AnsiString(S, OldPattern, NewPattern: String; All : Boolean; IgnoreCase : Boolean; WholeWord: Boolean): String
	function StrToInt(const S: String): Integer
	function IntToStr(const Value: Integer): String
	function StrToFloat(const S: String): Extended
	function FloatToStr(const Value: Extended): String
	function CurrentDateTime : Extended
	function DateToStr(Value : Extended) : String
	function TimeToStr(Value : Extended) : String
	function HTMLValues(const HTML : String; ABegin, AEnd, ItemBegin, ItemEnd : String; ValDelim : String; var Pos : Integer) : String
	function HTMLValues2(const HTML : String; ABegin, AEnd, ItemBegin, ItemEnd : String; ValDelim : String; var Pos : Integer) : String
	function TextBetween(const HTML : String; ABegin, AEnd : String; doLineBreaks : Boolean; var Pos : Integer) : String
	function HTMLToText(const HTML : String) : String
	procedure ShowMessage(const Msg, Head : String)
---------------------------------------------
}