delphi去掉括号及括号内的内容函数

function TSetParkForm.RemoveSgin(str: string): string;    // 去掉括号内的内容(包括括号)
var
  i1, i2, i: integer;
begin
  for i := 0 to length(str) - 1 do begin
    i1 := str.IndexOf(‘(‘);
    if i1 = -1 then break;
    i2 := str.IndexOf(‘)‘);
    if i2 = -1 then break;
  end;
  result := str.Remove(i1, i2-i1+1);
end;