sebenernya ini tugas temen cwe ane ,ane mau buatin eh ternyata uda di buatin sama orang lain 
dari pada di buang mending ane share di mari sama di blog ane
oke langsung siapin component kayak dibawa ini
kira kira desainnya kayak gini
oke lanjut klik 2x pada tombol input lalu masukan script ini
procedure TForm1.Button1Click(Sender: TObject);[/spoiler]
vara,b,c:integer;tahun:array[1..10] of string;input:string;begin
input:=inputbox('Input tahun','Masukkan Jumlah Tahun : ','');c:=0;
for b:=1 to strtoint(input) dobegin
tahun[b]:=inputbox('Tahun Ke : '+inttostr(b),'Masukkan Tahun','');ListBox1.Items.Add(tahun[b]);edit1.Text:=inttostr(ListBox1.Items.Count);a:=strtoint(tahun[b]);
if a mod 4=0
then c:=c+1else c:=c+0;edit2.Text:=inttostr(c);end;end;
next double klik pada tombol clear masukkan ini :
procedure TForm1.Button2Click(Sender: TObject);begin
listbox1.Clear;edit1.Text := ' ';edit2.Text := ' ' ;end;
sekarang pada tombol close masukkan script ini :
procedure TForm1.Button3Click(Sender: TObject);begin
halt;end;
ini hasilny runningnya :
sekian tutor dari ane
Sumber : DC