Como ficaria a seguinte situação
if StrToInt(BEdit1.Text) < 30 then
Edit2.Text := '30'
else if StrToInt(BEdit1.Text) in [30..50] then
DBEdit2 := '40'
else
DBEdit2').AsString := '50'
usando o if ternário
Como ficaria a seguinte situação
if StrToInt(BEdit1.Text) < 30 then
Edit2.Text := '30'
else if StrToInt(BEdit1.Text) in [30..50] then
DBEdit2 := '40'
else
DBEdit2').AsString := '50'
usando o if ternário