[Asinkrit]

Ну во первых,

Код:

procedure TNewCardForm.AtmRadioButtonClick(Sender: TObject);
begin
  if AtmRadioButton.Checked then
    begin  
    UstrDBComboBox.DataSource := DataModule2.AtmSource;
    UstrDBComboBox.DataField := 'nomeratm';
    end;
end;

А вообще что за ошибка?