Hola de nuevo.
Y pensandolo mejor... Podes hacer un procedimiento al que envíes como argumento los operandos y el operador, realize las operaciones y las muestre.
Por ejemplo:
Código Delphi
[-]
procedure TForm1.Calcular(const Operador1, Operador2: Double;
const Operador: Char);
var
Resultado: Double;
begin
case Operador of
'+': Resultado := Operador1 + Operador2;
'-': Resultado := Operador1 - Operador2;
'*': Resultado := Operador1 * Operador2;
'/': Resultado := Operador1 / Operador2;
end;
Edit3.Text := FloatToStr(Operador1)+ ' ' + Operador + ' ' +
FloatToStr(Operador2)+ ' = '+
FloatToStr(Resultado);
end;
Llamadas:
Código Delphi
[-]
Calcular(Cantidad1, Cantidad2, '-');
Calcular(cantidad1, Cantidad2, '*');
...
Saludos.