da oben hätten ein paar auslassungspünktchen ...
und/oder die Zitattägs nicht schaden können.
Nja, du mußt nur den Base64/MIME-String extrahieren und in Binärdaten umwandeln lassen.
also "/9j/4AAQS ... 3mr+9xj1bv8v/2Q==" (und eventuell vorher die Zeilenwechsel entfernen, je nach Dekodierungsverfahren)
dafür gibt's auch fertige Funktionen/Klassen
z.B. in den INDYs (sind oftmals in Delphi schon enthalten) >
Unit IdCoderMIME > TIdDecoderMIME und TIdEncoderMIME
und das JCL kent dafür auch Einiges.