Entweder Radiogroup grösser machen oder die Anzahl der Einträge auf einem Maximalwert begrenzen:
Delphi-Quellcode:
procedure LimitTStringsCount(list:TStrings; maxcount:integer);
begin
if maxcount < 0 then Exit;
while list.count > maxcount do
list.delete(list.count-1);
end;