[Beast]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Index: Integer;
 ComboBox: TComboBox;
begin
 ComboBox := FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox;

 if ComboBox.Items.Count > 1 then
 begin
  Index := ComboBox.ItemIndex;

  if ComboBox.Items.Count = Index+1 then
  begin
   ComboBox.Items.Delete(Index);
   ComboBox.ItemIndex := 0
  end
  else
   ComboBox.Items.Delete(Index);
   ComboBox.ItemIndex := Index;
  end
 else
  ShowMessage('Невозможно удалить последнюю запись!!!');
  ComboBox.SetFocus;
end;

Вторую часть подкорректировал данным образам, все работает. Спасибо всем! Отдельное спасибо Drozh!!!