Originariamente inviato da colde
Ma mi da errore perchè si aspetta una stringa e a quanto pare lo vede come numero nonostante gli apici. Ho trovato anche un CodeEditor per gli item ma mi sembra di aver capito che non "legge" gli if e i for.
Assolutamente no, non si aspetta una stringa, ma sei tu che indichi una stringa laddove questa non è richiesta.
Inoltre, con un assegnamento del genere, ammesso che sia possibile, avresti un solo elemento...e tutti gli altri? 
Hai provato a guardare anche sulla Guida in linea?
Ad ogni modo, l'inserimento è molto semplice; prendi spunto da questo esempio che ho codificato al volo:
codice:
uses
DateUtils;
procedure TDemoForm.FillYearComboBox;
var
currentYear: Word;
itemYear: Word;
begin
// Pulisce il contenuto della casella di riepilogo
YearComboBox.Items.Clear;
// Determina l'anno corrente
currentYear := YearOf(Now);
// Scandisce gli ultimi 70 anni a ritroso
for itemYear := currentYear downto (currentYear - 70) do
begin
// Aggiunge l'anno alla casella di riepilogo
YearComboBox.Items.Add(IntToStr(itemYear));
end;
end;
Ciao!