这个问题不难

Question

年号:=formatdatetime('yyyy',date());
可以了吗？

Answer 1

首先作一个能自动发id的小程序！能得到你所要的id;
然后用DecodeDate(date, Year,Month,Day);///调用DecodeDate函数；
取的year的值，最后用year的值（字符型）+你开始得到的id(转换成字符型)；

Answer 2

var
  Year, Temp: Word;DecodeDate(Now, Year, temp, temp);
YourStr := IntToStr(Year) + '0001';

Answer 3

var 
  y:integer;...
y := 2001;
Edit.Text := IntToStr(y*1000 + id);