[Ash]

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

Код:

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;