3 edit
1 listbox
в лист боксе :
+
-
*
/
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,r:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
case listbox1.ItemIndex of
0:r:=a+b;
1:r:=a-b;
2:r:=a*b;
3:r:=a/b;
end;
edit3.Text:=floattostr(r);
end;
Код довольно таки корявый, но в учебных целях сойдет.