1:
2:
3:
4:
5:

for i := length(s) downto 1 do
   begin
      if s[i] = ')' then delete(s, i, 1);
      hier will ich aus der schleife raus
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.pruefen(var s : string; var ok : boolean);
var i : integer;
begin
  memo1.lines.Add('Wird geprüft: ' + s);
  if length(s) = 1 then ok := false
  else
    begin
      for i :=  1 to length(s) do
        begin
          if s[i] = '(' then delete(s, i, 1);
          break
        end;
      for i := length(s) downto 1 do
        begin
          if s[i] = ')' then delete(s, i, 1);
          break
        end;
      if length(s) > 0 then
        pruefen(s, ok)
      else
        ok := true;
    end
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.pruefen(var s : string; var ok : boolean); 
var i : integer; 
begin 
  memo1.lines.Add('Wird geprüft: ' + s); 
  if length(s) = 1 then ok := false 
  else 
    begin 
      for i :=  1 to length(s) do 
        begin 
          if s[i] = '(' then delete(s, i, 1); 
          break //Dieses Break wird IMMER ausgeführt. Sollte aber nur wenn s[i] = '(' 
        end; 
      for i := length(s) downto 1 do 
        begin 
          if s[i] = ')' then delete(s, i, 1); 
          break //Genau wie oben
        end; 
      if length(s) > 0 then
        //Was passiert wenn alle Klammern raus sind und trotzdem noch
        //Zeichen da sind (a)(b). Dann läuft das endlos
        pruefen(s, ok) 
      else 
        ok := true; 
    end 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  i, Klammern: Integer;
  Text: String;
begin
  Text := '(((a + b)))-(c / d)+(a)*(d)/(g)*(((2 + 1)))';
  Klammern := 0;

  for i := 1 to Length(Text) do begin
    if Text[i] = '(' then Inc(Klammern);
    if Text[i] = ')' then Dec(Klammern);
    if Klammern < 0 then ShowMessage( 'Falsche Klammerfolge' );
  end;

  if Klammern = 0 then
    ShowMessage( 'Anzahl korrekt' ) else
    ShowMessage( 'Anzahl der Klammern ist falsch: ' + IntToStr(Klammern) );
end;