procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  If radioGroup1.ItemIndex=0 then v:=1;
  If radioGroup1.ItemIndex=1 then v:=2;
  If radioGroup1.ItemIndex=2 then v:=3;
end;