关于字符串与数组的问题？

Question

var
  A : array[0..127] of char;
begin
  strmove(@A,pchar(Edit1.Text),Length(Edit1.Text));
end;

Answer 1

var
  a : pchar;
  b : string;
begin
  b := 'asdfsaf';
  a := pchar(b);
end;

Answer 2

var
  a :string;
  b:array[1..100]of char;
  i : integer;
begin
  a := 'test';
  for i := 1 to length(a) do
    b[i] := a[i];
  b[i] := a[i];
  showmessage(string(b));
end;

Answer 3

var
  a :string;
  b:array[1..100]of char;
  i : integer;
begin
  a := 'test';
  strmove(@b,pchar(a),Length(a)+1);
  showmessage(b);
end;