перевод строки в массив байт

[vladoscom93]

В общем написал код который это все делает... Но вылетает иногда ошибка и вылетает дебаггер в чем может быть проблема?

type ByteArray = array of byte;

function IntToByte(Value:Integer):Byte;
begin
  if Value<0 then
    Result:=0
  else
    if Value>255 then
      Result:=255
    else
      Result:=Value;
end;

function StrToAscii(const S: string): ByteArray;
var
  I: Integer;
begin
  SetLength(Result, Length(S));
  for I := 1 to Length(S) do
  begin
    result[i]:=IntToByte(ord(S[I]));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    xByte:ByteArray;
begin
    Memo1.Clear;
    xByte := StrToAscii(Edit1.Text);
    for I := 1 to Length(xByte) do
        Memo1.Lines[0]:=Memo1.Lines[0]+' '+inttostr(xByte[i]);
end;

Все ошибку нашел код подправил) пусть остается вдруг пригодится кому