去除中文括号

procedure TForm1.Button4Click(Sender: TObject);
var
  pmstr,zspm:WideString;
  cstr1,cstr2:WideString;
  i:Word;
begin
  //pmstr:=Trim(Edit2.Text);
  pmstr:='黄山（红皖）硬红';
  cstr1:='（';
  cstr2:='）';
  for i:=1 to Length(pmstr) do
    if (cstr1=pmstr[i]) or (cstr2=pmstr[i]) then
      Continue
    else
      zspm:=zspm+pmstr[i];
    ShowMessage(zspm);
end;