Menambah Tahun Otomatis kedalam List ComboBox Delphi

Langkah pertama tambahkan procedure dibagian Public Declaration

procedure TambahTahun;

Tambahkan satu buah ComboBox kedalam form. Lalu kemudian dibagian Implementation ketikkan code berikut ini procedure TForm1.TambahTahun;

var
  thn, bln, hari: Word;
  i: Integer;
begin
  DecodeDate(Date(),thn,bln,hari);
  ComboBox1.Items.Clear;
  for i := thn downto 2000 do
  begin
    ComboBox1.Items.Add(IntToStr(i));
  end;
end;

Untuk penggunaannya pada event OnCreate ketikkan code ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
  TambahTahun;
end;

Jalankan program lalu klik ComboBox, hasilnya akan seperti pada gambar ini dan anda bisa kembangkan lagi.