хочу создать процедуру на радиогруппу

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
RadioGroup1.ItemIndex:=0;
label3.Visible:=true;
label2.Visible:=true;
edit1.Visible:=true;
edit2.Visible:=true;
RadioGroup1.ItemIndex:=1;
label3.Visible:=false;
label2.Visible:=false;
label4.Visible:=true;
label5.Visible:=true;

почему она начинает тупить?
моя цель - это создать радиогруппу, при которой ткнув на item0 раскрываются некоторые label's и edit's, а некоторые скрываются
тоже самое при клацанье на item1