Мда...
С учетом уточненного ТЗ:
PHP код:
procedure TForm1.Button2Click(Sender: TObject);
var
a,b:real;
r:string;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
case listbox1.ItemIndex of
0:r:=edit1.text+' + '+edit2.text+' = '+floattostr(a+b);
1:r:=edit1.text+' - '+edit2.text+' = '+floattostr(a-b);
2:r:=edit1.text+' * '+edit2.text+' = '+floattostr(a*b);
3:r:=edit1.text+' / '+edit2.text+' = '+floattostr(a/b);
end;
edit4.Text:=r;
end;
Код еще корявее)
Просто для данной задачи, при данных условиях, не вижу смысла городить мего оптимизацию.