حساب العمر بالسنة بدلفي7

[فارس المطر]

السلام عليكم ورحمة الله وبركاته

أنا مبتدئ مع الدلفي وأحب تعلم تصور قواعد البيانات الممتعة

تمرين بسيط في دلفي

كيف ابرمج عملية بالمعطيات الاتية :
لدي الأزرار ثلاثة
Edit2
combobox1
button

عند الضغط على الزر (button) يتم إظهار العمر بالسنة في Edite 2 مع العلم إن خيارات سنوات الميلاد مدرجة في combobox1

وهل يجب ادخال :Memo1 في العملة
و في البداية هل ابرمج بالضغط على الز button
[COLOR="Red"]
محاولتي في حل التمرين [/COLOR]

PHP كود :

var a,b,r : integer;
begin

a:=strtoint(combobox1.text);
b:=strtoint(edit2.text);
r:=

end;

end. 


[onexite]

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
for i:=1900 to 2015 do
combobox1.Items.Add(IntToStr(i));
combobox1.ItemIndex:=0;
Edit1.Text:='0';
end;

procedure TForm1.Button1Click(Sender: TObject);
var Year, Month, Day: Word  ;
begin
  DecodeDate(Date,Year, Month, Day) ;
Edit1.Text:=IntToStr(Year-StrToInt(ComboBox1.Text))
end; 


[فارس المطر]

شكرا على الرد السريع أخي onexite
أنا أقصد حساب العمر بالسنة فقط مثال 2015 - 1980 يعطينا العمر 35 سنة
مع العلم أن السنوات مدرجة أسطر في خانة combobbox
من سنة 1970 1970.1971.1972.1973...وهكذا الى 1990

[onexite]

اعلم بذلك والحل صحيح ( يقوم بحساب فرق السنوات ) غير هذا فقط
وهذا الاجراء يقوم بملا combobox ولا دخل له بالحساب
for i:=1970 to 1990 do