Bild als "HEX" öffnen / und wieder zurückwandeln

[KleinAmann]

Hallo,

wie der Titel schon sagt will ich z.b ein Jpg-Bild als "text" laden,
diesen will ich dann in Hex anzeigen lassen, dass mach ich mit dieser Funktion :

Delphi-Quellcode:

function BuffToHex(ByteArray: TMyByteArray): string;
var
  i: Integer;
  s: string;
  foo: string;
  HexLength: Integer;
const
  HEXSTR = '0123456789ABCDEF';
begin
  HexLength := Length(HEXPREFIX) + 2 + Length(HEXSUFFIX);
  SetLength(foo, Length(ByteArray) * HexLength);
  for i := 0 to High(ByteArray) do
  begin
    s := HEXPREFIX + HEXSTR[((ByteArray[i] and $F0) shr 4) + 1] +
      HEXSTR[(ByteArray[i] and $0F) + 1] + HEXSUFFIX;
    Move(s[1], foo[i * HexLength + 1], HexLength);
  end;
  Result := foo;
end;

Funktioniert auch wunderbar, nun zu meinem Problem
nach einigen Vorgängen (nicht wichtig)
will ich diese Datei wieder abspeichern,
der Code ist genau gleich, wurde nichts geändert,
wenn ich dies dann als 'beispiel.jpg' abspeichere kann ich das Bild nicht mehr öffnen,
da ich es ja erst wieder die HEX-Werte in "Binary??" umwandeln muss.

Hat jemand eine Idee?

Mfg KleinAmann