{ dilediğiniz bir combobox nesnesine 01.02.03.....................31 e kadar sayı eklemek.}
Procedure GunOlustur(nesne:TComboBox);
var
i:Integer;
strgg:String;
 begin
  nesne.Items.Clear;
    for i:=1 to 31 do
     begin
      if Length(IntToStr(i))=1 then
      begin
        strgg:='0'+IntToStr(i);
        nesne.Items.Add(strgg);
      end
      else
      begin
      nesne.Items.Add(IntToStr(i));
      end;
   end;
end;
 
{Kullanımı}
GunOlustur(TComboBox(gg)); // gg combobox'ın nesne adı
 
{ dilediğiniz bir combobox nesnesine 01.02.03.....................12 e kadar sayı eklemek.}
 
Procedure AyOlustur(nesne:TComboBox);
var
i:Integer;
strgg:String;
 begin
  nesne.Items.Clear;
    for i:=1 to 12 do
     begin
      if Length(IntToStr(i))=1 then
      begin
        strgg:='0'+IntToStr(i);
        nesne.Items.Add(strgg);
      end
      else
      begin
      nesne.Items.Add(IntToStr(i));
      end;
   end;
end;
 
{Kullanımı}
 
AyOlustur(TComboBox(aa)); // aa combobox'ın nesne adı
 
 
{ Herhangi bir combobox nesnesine sadece tarih değerini kontrollü şekilde aktarmak.}
{Örneğin yaşı 18 den küçük olanların doğum tarihlerini göstermek istemediğiniz durumlarda.}
 
Procedure YilOlustur(yil_oncesi,yil_sonrasi:Integer ; nesne:TFlatComboBox);
var
i:Integer;
 
  ilk_sayi,son_sayi:Integer;
 
 begin
      nesne.Items.Clear;
      ilk_sayi:=YearOf(date) - yil_oncesi;
      son_sayi:=YearOf(date) + yil_sonrasi;
 
      for i:=ilk_sayi to son_sayi do
        begin
         nesne.Items.Add(IntToStr(i));
        end;
end;
 
 
{Kullanımı}
 
YilOlustur(75,-18,TFlatComboBox(yyyy)); // yyyy combobox nesne adı
 
// bugünden 75 yıl öncesi doğum tarihli olanlar ve, 18 yıl öncesi doğum tarihi olanlar arasındakiler.