procedure TForm1.Button4Click(Sender: TObject);
begin
 GroupBox1.Visible := False;
 GroupBox2.Visible := False;
 if RadioButton13.ItemIndex = 0 then
  GroupBox1.Visible := True
 else
  GroupBox2.Visible := True;
end;