Sumar en Delphi Con ListBox

[Ray16]

Empezado por Ray16

Un millon de gracias, lo he hecho con numeros reales en vez de entero

lo tengo de esta forma y funcionan todas las operaciones...

if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ListBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: ;


solo me falta la división cuando la pongo me da error, me lo marca en rojo
si lo ponga de esta forma : incluyendo la division...

if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ListBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: edit3.Text:= floattostr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));

me marca esta ultima linea en rojo, y para la division por cero quiero validarlo de esta forma.

if (numero2=0) then
begin
ShowMessage('Error Al Dividir entre cero');

end
else
begin
hacer la division.

Gracias por la ayuda Ecfisa, pude hacer las operaciones, ahora solo falta la division...

Gracias!,

Otra cosa lo hice con un ComboBox y me funciona, como aplicaria la validacion al dividir entre cero

procedure TForm1.ComboBox1Change(Sender: TObject);
begin


if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ComboBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: edit3.Text:= floattostr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));


como adjuntaria ete codigo
if (numero2=0) then
begin
ShowMessage('Error Al Dividir entre cero');

end
else
begin
hacer division


Mil gracias