Удалить часть текста, заключенного в скобки

private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
Ch: char;
begin
  AssignFile(F,'test.txt');
  Append(F);
 
  {$I-}
 
  Reset (F);
  {$I+}
if IOResult = 0 then
   Begin
     while not Eof(F) do
     begin
       Read(F,Ch);
       Memo1.text:=memo1.Text+Ch;
       end;
     CloseFile(F);
     end
  else
  ShowMessage('Нет такого файла');
  end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
 var
    s: string;
    i: integer;
    l,q: integer;
begin
  s:=memo1.Text;
  q:=0;
    For i:=1 to Length(s) do
      If s[i]='(' then
        Begin
            For l:=i to Length(s) do
              If s[l]<>')' then Inc(q) else
                Begin
                  Delete(s,i,q+1);
                  break;
                  S:=memo2.text;
                end;
        end;
 
ShowMessage(s);
 
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  F: TextFile;
  test: string;
begin
test:= Memo2.text;
AssignFile(f, 'test2.txt');
Rewrite(F);
 
writeln(f, Memo2.Text);
  CloseFile(f);
 
end;
end.

procedure TForm1.Button2Click(Sender: TObject);
var
  S : string;
  i, p, Len : integer;
begin
  S := Memo1.Text;
  Len := Length(S);
  p := 0;
  for i := Len downto 1 do
    if (p = 0) and (S[i] = ')') then
      p := i
    else if (p > 0) and (S[i] = '(') then begin
      Delete(S, i, p - i + 1);
      p := 0;
    end;
  Memo2.Text := S;
end;