請問這樣的單頭編號是怎麼實現的

依年月，格式：XXX-YM0001，其中Y取年最後1 碼，M取月份，1-9月不變，10-12月分別為A、
B、C

例：
PSE-810001
.......................
PSE-890001
PSE-8A0001
PSE-8B0001
PSE-8C0001

謝謝！

interface
StrUtils;
var
Form1: TForm1;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
YesrNo , MonthNo : string;
begin
end;
end.

------
努力會更接近成功

very good !
Thank you very much!