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;