Prueba esto y nos cuentas
Código Delphi
[-]
var
cadena:String;
stream:TMemoryStream;
valor,i: Integer;
begin
stream:=TMemoryStream.Create;
cadena:=
i:=1;
while i <= length(stringHex) do
begin
valor:=Ord(cadena[i]);
;
stream.Write(valor,1);
Inc(i);
end;
stream.Position:=0;
Yo tengo imagenes en un xml y de cadena las paso a TImagen y este codigo me funciona perfectamente.