1:
2:
3:
4:
5:

procedure Button1 (sender...)
begin
  if RadioButton1.clicked then form2.show
  if RadioButton2.clicked then form3.show
end;					

1:
2:
3:
4:
5:

procedure Button1 (sender...)
begin
  if RadioButton1.checked then form2.show;
  if RadioButton2.checked then form3.show;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
    begin
      Form2.Show;
    end
  else
    begin
      if RadioButton2.Checked then
        begin
          Form3.Show;
        end;
    end;
end;					

1:

uses Unit2, Unit3;