var score : integer
begin
    if RadioButton1.Checked = true then
        score := score + 1;
    if RadioButton2.Checkad = true then
        { и тд }
    Label1.Caption := 'Score: " + FloatToStr(score);
end.