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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

function parse(s: string): extended;

 function posx(c: char; s: string): integer;
 var
  p: pchar;
  kc: integer;
 begin
  result := -1;
  kc := 0;
  p := pchar(s);
  while p^ <> #0 do
  begin
   case p^ of
    '(': inc(kc);
    ')': dec(kc);
   end;
   if kc < 0 then exit;
   if (kc = 0) and (p^ = c) then
   begin
    result := length(s) - length(p) + 1;
    exit;
   end;
   inc(p);
  end;
 end;

 function rembrackets(s: string): string;
 begin
  while (s <> '') and (s[1] = '(') and (s[length(s)] = ')') do
   s := copy(s, 2, length(s)-2);
  result := s;
 end;
 
 function Anfang(s: string; bis: integer): string;
 begin
  result := copy(s, 1, bis-1);
 end;

 function ende(s: string; von: integer): string;
 begin
  result := copy(s, von, length(s));
 end; 

var
 ppl, pmi, pdu, pma: integer;
begin
 s := trim(rembrackets(trim(s)));
 if TryStrToFloat(s, result) then exit;
 ppl := posx('+', s);
 pmi := posx('-', s);
 pdu := posx('/', s);
 pma := posx('*', s);
 if ppl > 0 then result := parse(anfang(s, ppl)) + parse(ende(s, ppl+1))
 else if pmi > 0 then result := parse(anfang(s, pmi)) - parse(ende(s, pmi+1))
 else if pdu > 0 then result := parse(anfang(s, pdu)) / parse(ende(s, pdu+1))
 else if pma > 0 then result := parse(anfang(s, pma)) * parse(ende(s, pma+1))
 else raise Exception.Create('Fehler im Term')
end;