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

[Agmcz]

وعليكم السلام
هكذا

PHP كود :

const
  s = AnsiString('1,2,3,4,5,6,7,8,9,10,11,12,13');
procedure TForm1.Button1Click(Sender: TObject);
var
  b: array of Byte;
  t: AnsiString;
  c: Byte;
  g: Ansichar;
begin
  SetLength(b, Length(s));
  Move(s[1], b[0], Length(s));
  for c in b do
  begin
   t := t + chr(c);
  end;
  Memo1.Lines.Add(t);
end; 


أنت تواجه دائما في نفس المشاكل Ansi, Unicode
يمكن العمل بنسخ دلفي التي لا تدعم اليونيكود
مثلا دلفي 7