在 Delphi 中,怎么将获取字符串后三位数字并进行自动增加

在 Delphi 中,如何将获取字符串后三位数字并进行自动增加?
我在做进销存系统，单号要求是“JD-201206001”，想获取到001 并在其基础上进行自动加1.请大侠帮帮嘛。

------解决方案--------------------
using StrUtils;
Rigthstr去右边3位，StrToInt转为int，加一后IntToStr转为字符串，然后和前面的拼接
------解决方案--------------------
sNo := Copy(sNo,1,Lenght(sNo）-3)+Format('%3.3d',[StrToIntDef(Copy(sNo,Lenght(sNo)-3,3),0)+1]);
------解决方案--------------------
uses StrUtils,SysUtils;
var OldOrderNo:String = 'JD-201206001';
NewOrderNo := Format('%.3d',[StrToInt(RightStr(OldOrderNo,3))+1]);
------解决方案--------------------
s1:= 'JD-201206001';
s2:=format('JD-201206%.3d',[strtoint(copy(s1,10,3))+1]);