Du erzeugst einfach für
alle gemeinsamen RadioButtons
das gleiche OnClick-Ereignis und schreibst:
Delphi-Quellcode:
If RadioButton1.Checked then Punkte1:=1;
If RadioButton2.Checked then Punkte1:=11;
If RadioButton3.Checked then Punkte1:=111;
geht zumindest bei mir.
Wenn du natürlich nur 2 Buttons hast, dann fällt die letzte Zeile weg.