[Beast]

Как можно тут объединить код?

Код:

procedure TForm2.ComboBox1Enter(Sender: TObject);
 begin
  RadioButton1.Checked := True;
 end;

procedure TForm2.ComboBox2Enter(Sender: TObject);
 begin
   RadioButton2.Checked := True;
 end;

procedure TForm2.ComboBox3Enter(Sender: TObject);
 begin
   RadioButton3.Checked := True;
 end;

Извиняюсь, что не в новой теме.