[ecfisa]

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.