Bin2Hex - Probleme

[ichbins]

* einbau *

-> Fehler:

for i := 1 to Length(hex) do müsste heissen
for i := 1 to Length(hex) div 2 do aber irgendwie wills trotzedm noch nicht klappen

Delphi-Quellcode:

var
  s,s2:string[255];
  x:string;
begin
  s:='My name is methos.';
  x:=mybin2hex(s,255);
  myhex2bin(s2,x,255);
  showmessage('Myhex2bin(mybin2hex(''My name is methos'')) = '+s2);

==> '^Š1r~v1z„1~v…yp„?' is irgendwie nicht das Ergebniss...

//edit: wenn ich normale Ansistrings (<>string[x]) verwende, krieg ich eine AV