فيما يتعلق بالترقيم التلقائي

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

اصدار الدلفي المستعمل هو 7 وقاعدة البيانات absolute database

لقد وضعت هذا الكود

procedure TFrm_FactureActel.RzBitBtn3Click(Sender: TObject);
var s,r:string;
t:integer;
begin
with DModule do
begin
If TParam.FieldValues['Annee']+1 then begin
TFActel.Append;
TFActel.FieldValues['Nu_Facture']:=TFActel.RecordCount+1;
end;
end;
s:=DModule.TFActel.FieldValues['Nu_Facture'];
t:=DModule.TParam.FieldValues['Annee'];
r:=inttostr(t);
DModule.TFActel.Edit;
DModule.TFActel.FieldValues['Annee']:=r;
DModule.TFActel.FieldValues['Nu_Facture']:=s+'/'+r;
NumFact.setfocus;
end;

والغرض منه هو أن يعيد الترقيم من جديد كل ما تغيرت السنة

لكن عجزت عن الحل وهو الأن يعمل سواءا غيرت السنة ام لم أغير السنة

المطلوب ماذا ينقص هذا الكود حتى يعيد الترقيم من جديد حسب كل سنة

إذا كان الرقم السابق هو 01/2012

كيف اجعل الرقم الحالي مثلا 01/2013

وجزاكم الله عنا كل خير