Convertir cadena a imagen

[carazas]

Hola amigos del foro:

Tengo un gran problema, necesito convetir esta cadena de texto a una imagen

str := 'FFD8FFE000104A46494600010100000100010000
FFDB0043000302020302020303030304030304050
805050404050A070706080C0A0C0C0B0A0B0B0D0
E12100D0E110E0B0B1016101113141515150C0F17
1816141812141514FFDB004301030404050405090
50509140D0B0D1414141414141414141414141414
14141414141414141414141414141414141414141
4141414141414141414141414141414FFC0001108
00C800C803012200021101031101FFC4001F00000
105010101010101000000000000000001020304050
60708090A0BFFC400B510000201030302040305050
4040000017D0102030004110512213141061351610
7227114328191A1082342B1C11552D1F0243362728
2090A161718191A25262728292A3435363738393A4
34445464748494A535455565758595A63646566676
8696A737475767778797A838485868788898A92939
495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6
B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8
D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9........ .....47000';
son 47000 caracteres

en delphi tengo la siguiente funcion que convierte esta cadena a un archivo en este caso la imagen

img es la direccion donde crea el archivo.

Código:

procedure TfrmCompanies.proStrToBin (img: String; Str: String);
var
  Stream: TFileStream;
  i: integer;
  b: integer;
begin
 
  Stream:= TFileStream.Create (img, fmCreate);
  try
    i:= 1;
    while i < Length (Str) do begin
      if TryStrToInt ('$' + Copy (Str, i, 2), b) then begin
        Stream.Write (b, 1);
      end else
        Exit;
      Inc (i, 2);
    end;
  finally
    Stream.Free;
  end

Espero puedan ayudarme, y gracias por su atencion
Saludos.