[Beast]

как привильно написать надо эту процедуру?

Код:

procedure TForm1.ComboBoxChange(Sender: TObject);
var
 i: integer;
begin
 for i := 1 to 3 do
 begin
  if TComboBox(i).Focused = true then
   TRadioButton(i).Checked := true
  else
   TRadioButton(i).Checked := false;
 end;  
end;

Admin: Учись правильно оформлять код! При рецедиве - бан.

Извиняюсь, впредь постараюсь быть поаккурутнее.