https://onezeronull.com/2013/01/07/read-and-write-id3tag-in-delphi-without-any-extra-components-updated/