не работают визиблы

[__STDC__]

пример.. на форме 4 метки... если выбрать первую радиокнопку, остаются 3 и 4, если вторую - 1 и 2..

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
label1.Visible := false;
label2.Visible := false;
label3.Visible := true;
label4.Visible := true;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
label1.Visible := true;
label2.Visible := true;
label3.Visible := false;
label4.Visible := false;
end;

[crit]

спасибо за ответы=) проще всего у Vladya

[Evgeniy26]

Ты непробывал ShowModal в конец вставить? Ты при активном radiobutton1 открываешь форму form2 в модальном режиме конечто у тебя там не фига не выполнится.

if  radiobutton1.Checked then  
begin
  form2.TV.Visible:=true;
  form2.TV2.Visible:=false;
  form2.Button2.Visible:=true;
  form2.Button3.Visible:=true;
  form2.Button4.Visible:=false;
  form2.Button5.Visible:=false;
  form2.showmodal;
end;