procedure TForm1.btnProcessClick(Sender: TObject);
var
  loEstoqueAtual, loQtdeDigitada, loResultado: Currency;
begin
  loEstoqueAtual := StrToFloatDef(edtEstoqueAtual.Text, 0);
  loQtdeDigitada := StrToFloatDef(edtQtdeDigitada.Text, 0);
  loResultado := 0;
  case rgFlag.ItemIndex of
    0:
      begin
        loResultado := loEstoqueAtual + loQtdeDigitada;
      end;
    1:
      begin
        loResultado := loEstoqueAtual - loQtdeDigitada;
      end;
  end;
  edtResultado.Text := FloatToStr(loResultado);
end;