char型字符数组不能与字符串相互赋值

Question

各位老师好。 
    我碰到了如下问题，当定义的char型字符数组暂时用不完时，怎样给余下的字符
数组赋空值。
procedure TForm1.Button2Click(Sender: TObject);
var
x1:string;
x2:array[1..6] of char;
begin
x1:='1233';
x2[1]:=x1[1];
x2[2]:=x1[2];
x2[3]:=x1[3];
//我只想用到x2字符数组的下标3，x1[4]、x1[5]、x1[6]暂时不用，但
//我不知道给怎样给x1[4]~x1[6]赋空值。
end;

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
x1:string;
x2:array of char;
i:Integer;
begin
 x1:='1234';
 SetLength(X2,Length(X1));
 for i:=Low(X2) to High(X2) do X2[i]:=X1[i+1];
end;

Answer 2

var
   x1:string;
   x2:array of char;
   I :integer;
begin
   x1:='ewr';
   setlength(x2,length(x1));
   showmessage(inttostr(high(x2)));
   for I := low(x2) to high(x2) do
       x2[I]:=x1[I+1];
   //showmessage(x2[0]);
   //showmessage(x2[1]);
   //showmessage(x2[2]);
end;//不过要注意,这样x2的下标可能是从0开始的了