[i]procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while (i<RadioGroup1.Items.Count) do
begin
if RadioGroup1.Buttons[i].Checked then
begin
form2.visible:=true;
form2.Memo1.Text:=RadioGroup1.Buttons.Caption;
form1.Visible :=false;
end;
Inc(i);
end;
end;
|