[Assistant]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  year: string;
begin
  ComboBox1.Clear;
  ComboBox1.Items.Add('Выбрать год');
  DataModule2.ADOQuery1.First;
  while not DataModule2.ADOQuery1.Eof do
  begin
    year := DataModule2.ADOQuery1.FieldByName('Год').AsString;
    if (ComboBox1.Items.IndexOf(year) = -1) then
      ComboBox1.Items.Add(year);

    DataModule2.ADOQuery1.Next;
  end;
  DataModule2.ADOQuery1.First;
  ComboBox1.Text := 'Выбрать год';
end;

но лучше конечно Год выбирать отдельным запросом с DISTINCT, примерно так:

Код:

SELECT DISTINCT Год FROM Таблица ORDER BY Год

или

Код:

SELECT Год FROM Таблица GROUP BY Год