急!!关于显示#0的问题,在线等~~ ( 积分: 100 )

function BytesToStr(mBytes: array of Byte): string;
var
I: Integer;
begin
Result := '';
for I := Low(mBytes) to High(mBytes) do
Result := Result + Chr(mBytes)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
b : array[1..8] of byte;
s : string;
begin
b[1] := $68;
b[2] := $1;
b[3] := $0;
b[4] := $0;
b[5] := $0;
b[6] := $0;
b[7] := $0;
b[8] := $68;

s := BytesToStr(b);

// s := 'h'#1#0#0#0#0#0'h'
Label1.Caption := s;
end;

出现#0就默认的结束,要如何将'h'#1#0#0#0#0#0'h'这整段字符显示出来.
用什么方法,请高手指教.

function BytesToStr(mBytes: array of Byte): string;
var
I: Integer;
begin
Result := '';
for I := Low(mBytes) to High(mBytes) do
if mBytes = 0 then
Result := Reuslt + '#0'
else
Result := Result + Chr(mBytes);
end;

谢谢~~