ما الخطا في هذا الكود

[Agmcz]

هكذا

PHP كود :

const
  s = '12345678910111213';

procedure TForm1.Button1Click(Sender: TObject);
var
  b: array of Byte;
  i: Integer;
  t: string;
  c: Byte;
begin
  SetLength(b, Length(s));
  for I := 1 to Length(s) do
    b[I-1]:= Ord(s[I]);
  for c in b do
    t := t + char(c);
  Memo1.Lines.Add(t);
end;