Probleme mit einem Rechner

[Matze]

Kann es sein, dass in einem der Edits nichts steht? Das musst du noch überprüfen (bsp. mit TryStrToFloat).

Des weiteren wäre es evtl. sinnvoll, wenn du case of anstelle der vielen if nutzen würdest, wie du es an anderen Stellen im Code auch machst:

Delphi-Quellcode:

case lol of
  1: begin

     end;
  2: begin

     end;
  // ...
end;

Auch das könntest du vereinfachen:

Delphi-Quellcode:

case Combobox1.ItemIndex of
0: lol := 1;
1: lol := 2;
2: lol := 3;
3: lol := 4;
end;

und zwar so:

lol := Combobox1.ItemIndex + 1;