كيف اضيف السنة لمحتوى حقل من SpinEdit

[medreg]

gلدي حقل من نوع Smallint
و اسمه Cde_Prd
والمطلوب هو عندما أضيف سجل يضف له السنة الموجودة بمكون SpinEdit1

احتاج لتعديل هذا الكود
وهو عبارة عن إضافة رقم تلقائي على ان يضيف الرقم التلقائي ويضيف له السنة
وكل ما تغيرت السنة في المكون SpinEdit
يبداء الرقم التلقائي برقم 1
يكون الرقم بعد اضافة السنة له على هذا الشكل 0001/2010 أو 2010/0001

PHP كود :

var x:integer;
h:integer;
begin
h:=spinedit1.value;
x:=0;
with DM_1 do begin
table1.Last;
x:=table1.FieldByName('Cde_Prd').AsInteger;
x:=x+1;
table1.Insert;
table1.FieldByName('Cde_Prd').AsInteger:=x;
end;
DBEdit1.SetFocus;

end;