Die letzte Zeile in deinen Quelltexten ist das von uns angesprochenen Probleme.* Hier wird (ohne das du es merkst) das String-Format konvertiert. Mach es so wie von negaH angesprochen und füge nicht den
ASCII-Wert direkt sondern dessen hexaldezimale Darstellung in das Memo ein.
Hier von mir mal 0815 hingeschrieben:
Delphi-Quellcode:
function StringAsHex(Value : string) : string;
var
i : integer;
begin
SetLength(Result, Length(Value));
for i := 1 to Length(Value) do
begin
Result[i] := IntToHex(Ord(Value[i]), 2);
end;
end;
*Natürlich ist dann auch die erste Zeile falsch, da du dir dort das schon abgeschnittene Erebnis wiederholst.