[Ash]

Такая же фигня. Пробуй так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TNewCardForm.AtmRadioButtonClick(Sender: TObject); begin   if AtmRadioButton.Checked then     begin     DBLookupComboBox2.Enabled := true;     DataModule2.AtmSource.Enabled:=false;     DBLookupComboBox2.ListSource := DataModule2.AtmSource;     DBLookupComboBox2.KeyField := 'idatm';     DBLookupComboBox2.ListField := 'NomerAtm';     DataModule2.AtmSource.Enabled:=true;     end; end;   procedure TNewCardForm.InfRadioButtonClick(Sender: TObject); begin   if InfRadioButton.Checked then     begin     DBLookupComboBox2.Enabled := true;     DataModule2.InfSource.Enabled:=false;     DBLookupComboBox2.ListSource := DataModule2.InfSource;     DBLookupComboBox2.KeyField := 'idinf';     DBLookupComboBox2.ListField := 'NomerInf';     DataModule2.InfSource.Enabled:=true;     end; end;