procedure TformSettlementValueEstimator.ComboBox1Select(Sender: TObject);
var
x1, x2, value1, LHFactor1 : double;
Likelihood1 : String;
begin
//
value1 := StrToFloat(Edit1.Text);
Likelihood1 := ComboBox1.Text;
if Likelihood1 ='1 in 100' then
begin
LHFactor1 := 0.01;
x1 := Value1;
x2 := x1 * LHFactor1;
label9.caption := FloatToStrF(x2, ffNumber, 10, 0);
end
else if Likelihood1 = '2 in 100' then
begin
LHFactor1 := 0.02;
x1 := Value1;
x2 := x1 * LHFactor1;
label9.caption := FloatToStrF(x2, ffNumber, 10, 0);
end
else if Likelihood1 = '4 % or 1 in 25' then {MORE CASES LIKE THE ABOVE}