[angvelem]

Примерно так:

Код:

var
  buf : array of Byte;
  I : Integer;
  St : String
...
  St := Edit1.Text;
  SetLength(Buf, Length(St));
  for I := 0 to Length(Edit1.Text) - 1 do
    Buf[i] := St[I + 1];