Si te basas en este ejemplo y lo aplicas al evento OnChange de ambos campos y desde ahí llamas a una función que te haga el trabajo ya lo tienes:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin
n:=3;
if ChkSuma.Checked then
n:=Abs(n)
else
n:=-1*Abs(n);
ShowMessage(IntToStr(n));
end;
Un Saludo.