[[Caral]]

Hola
Ahora lo vamos a hacer mas bonito:
Coloca dos edit, un label, un combobox y un boton.

La propiedad Text del combobox la dejamos en blanco (borrala).
Dale click a la propiedad Items (tString), siempre del combobox, en la pantalla que te sale coloca, uno debajo del otro:
+
-
/
*
Ahora en el boton:

Código Delphi [-]
var
Num1, num2, total : Integer;
begin
 Num1:= StrToInt(Edit1.Text);
 Num2:= StrToInt(Edit2.Text);
 case ComboBox1.ItemIndex of
     0 : begin
         Total:= Num1 + Num2;
         end;
     1 : Begin
         Total:= Num1 - Num2;
         end;
     2 : Begin
         Total:= Num1 Div Num2;
         end;
     3 : Begin
         Total:= Num1 * Num2;
         end;
         end;
  Label1.Caption:= IntToStr(Total);
 end;

Listo.
Esto es para numeros enteros si se quieren decimales las variables tienen que ser REAL y en vez de StrToIn, StrToFloat, ademas de FloatToStr en el caption.
Saludos