O‘zbekiston respublikasi oliy va o‘rta maxsus ta‘lim vazirligi sirdaryo viloyati kasbiy ta‘limni rivojlantirish va muvofiqlashtirish hududiy boshqarmasi

procedure 
TForm1.Button1Click(Sender: 
TObject); 
var i,j:integer; 
begin 
i:=ListBox1.ItemIndex; if i>=0 then begin 
j:=StrToInt(ComboBox1.Items[i]); 
ComboBox1.Items[i]:=IntToStr(j+SpinEdit1.Value); 
end; end; 
Protseduraning birinchi, uchinchi va o‗ninchi satrlari oynada borligini unutmang.
Ikkinchi satrda ikkita yangi o‗zgaruvchi yaratiladi. To‗rtinchi satrida ulardan birinchisi: i
ga tanlangan futbolchining ro‗yxatdagi raqami beriladi. Beshinchi satrda bu raqamning 
nomanfiyligi tekshiriladi (aks holda futbolchi tanlanmagan bo‗ladi). Yettinchi satrda ikkinchi
o‗zgaruvchi: j ga ComboBox1 ro‗yxatining i-satridagi son (dastlab u 0 ga teng) beriladi. 
Sakkizinchi qatorda bu songa SpinEdit1 da son (futbolchiga berilgan baho) 
qo‗shiladi va u matn satriga aylantirilib, ComboBox1 ro‗yxatining i-satriga yozib qo‗yiladi. 
Natijada ComboBox1 dagi ro‗yxatda har bir futbolchi to‗plagan ballar yig‗ilib boradi. Uni
bu obyektning o‗ng tomonidagi uchburchak ko‗rinishida tugmani bosib xohlagan paytimizda 
ko‗rishimiz mumkin. Ilovani F9 tugmasini bosib ishga tushiramiz. Unda birinchi ro‗yxatdan 
futbolchini tanlab, ikkinchi maydonchada unga berilgan bahoni tanlaymiz va OK
tugmasini bosamiz (chapdagi rasm). Bir necha marta futbolchilarga ovoz berib, natijani
ko‗rish uchun uchinchi maydonchaning o‗ng tomonidagi uchburchak tugmani bosamiz 
(o‗ngdagi rasm).