如何将string类型转换为char类型?

Question

procedure TMain.N7Click(Sender: TObject);
var
  m : string;
  b : array[1..5] of char;
  c : byte;
  d : char;
begin
  m := inttohex(300,4);
  b[1] := copy(m,1,1);  //如何将copy(m,1,1)？
  b[2] := copy(m,2,1);  //如何将copy(m,1,1)？
  b[3] := copy(m,3,1);  //如何将copy(m,1,1)？
  b[4] := copy(m,4,1);  //如何将copy(m,1,1)？
end;

Answer 1

b[1] := M[1]//如何将copy(m,1,1)？
  b[2] := M[2];  //如何将copy(m,1,1)？
  b[3] := ...;  //如何将copy(m,1,1)？
  b[4] := ...