如何将字符串中的汉字分别取出？急！！！

Question

function GetChinese(str: String):String;
var wsStr: WideString;
    sStr: String;
    ii :Integer;
begin
  Result := '';
  wsStr := str;
  for ii := 1 to Length(wsStr) do
  begin
    sStr := wsStr[ii];
    if Length(sStr) = 2 then
      Result := Result+sStr;
  end;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var wsStr: WideString;
    ii: Integer;
begin
  wsStr := Edit1.Text;
  for ii := 1 to Length(wsStr) do
  begin
    if TEdit(FindComponent('Edit'+IntToStr(ii+1))) = nil then Break;
    TEdit(FindComponent('Edit'+IntToStr(ii+1))).Text := wsStr[ii];
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
   i:=0;
   while i<(length(trim(edit1.Text))-1) do    begin
       listbox1.Items.Add(copy(edit1.Text,i+1,2));i:=i+2;end;
end;