Código final, así quedaría más compacto:
Código:
procedure TForm1.Button2Click(Sender: TObject);
var
nCont:Integer;
begin
for nCont:=0 to Componentcount -1 do
begin
If Components[nCont] is TradioButton then
begin
(Components[nCont]as TRadioButton).Checked:=False;
end;
end;
end;
Un Saludo.