[求助] 自动产生编号的问题

各位好!我现在正在写一个电脑设备管理的小程序,在做新增电脑设备登记表时,想让程序自动产生编号,我写了一个,具体代码如下,现在只能问题是,怎样让编号在原来的基础上自动加1,现在自动显示的还是上个编号,请各位帮帮看看,谢谢!
procedure TForm21.FormCreate(Sender: TObject);
var
d,id,sql:string;
begin
sql:='select max(id) as ss from [addsb]';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Add(sql);
adoquery1.Open;
id:=adoquery1.fieldbyname('ss').AsString;
if id=null then
id:=inttostr(0)
else
d:=formatdatetime('yymmdd',now);
edit1.Text:='XD'+d+id;
end;