Vielleicht willst du eher das hier?
Delphi-Quellcode:
procedure WriteHex(fs: TFileStream; hex: string);
var
buf: array of byte;
i: integer;
begin
SetLength(buf, Length(hex) shr 1);
for i := Low(buf) to high(buf) do
buf[i] := StrToInt('$' + Copy(hex, Succ(i shl 1), 2));
fs.Write(buf[0], Length(buf));
end;
begin
WriteHex(fs, '313233'); // schreibt '123'
end;
Grüße vom marabu