problema com checkbox e radiobutton

[Arthur2010]

Olá amigos, to montando um programinha que faz alguns cálculos, o usuário entra com 3 valores e o restante ele mostra sozinho, porém estou com problemas com o checkbox e radiobutton, pois antes de clicar para calcular, o usuário precisa escolher uma opção de checkbox e uma do radiobutton, e ai adicionar estes valores aos cálculos, só que não sei como atribuir isso no cálculos.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    salbruto: TLabel;
    numfilhos: TLabel;
    salporfilho: TLabel;
    salfamilia: TLabel;
    inss: TLabel;
    salliq: TLabel;
    edsalbruto: TEdit;
    ednumfilhos: TEdit;
    edsalporfilho: TEdit;
    labsalfamilia: TLabel;
    labsalliq: TLabel;
    btcalcula: TButton;
    btfecha: TButton;
    labinss: TLabel;
    sindicato: TLabel;
    lblsindicato: TLabel;
    Label1: TLabel;
    lblplanodesaude: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioGroup2: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure btcalculaClick(Sender: TObject);
    procedure edsalbrutoChange(Sender: TObject);
    procedure btfechaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btcalculaClick(Sender: TObject);
var
  tt_ganho_salfamilia:real;
  sal_liq:real;
  vl_pago_inss:real;
begin
  tt_ganho_salfamilia:=StrToFloat(edsalporfilho.Text)*StrToFloat(ednumfilhos.Text);
  vl_pago_inss:=StrToFloat(edsalbruto.Text)*0.08;
  sal_liq:=StrToFloat(edsalbruto.Text)+((StrToFloat(edsalporfilho.Text)*StrToFloat(ednumfilhos.Text))-(StrToFloat(edsalbruto.Text)*0.08));

  labsalfamilia.Caption:=FormatFloat('R$ ,0.00',tt_ganho_salfamilia);
  labinss.Caption:=FormatFloat('R$ ,(0.00)',vl_pago_inss);
  labsalliq.Caption:=FormatFloat('R$ ,0.00',sal_liq);

end;

procedure TForm1.btfechaClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.edsalbrutoChange(Sender: TObject);
begin
  edsalbruto.SetFocus;
end;

end.

Obrigado!

bom, fiz uma cacetada de ifs else com as possibilidade de checkbox e radiobutton checked,

acho q deve funcionar, ja ja eu posto se deu certo