高手看看这段自动获取编号代码问题

Question

原来ware字段是这样的（code,name,....),下面的代码就没问题，现在我在前面加了一个id字段（id,code,name,...)下面这段代码应该怎么修改？谢谢！！
procedure Teditsp.NewCode(Sender: integer);
var code: string;
begin
  Query1.Close;
  Query1.sql.text := 'select count(*) from ware';
  Query1.open;
  code := floattostr(100000 + Query1.fields[0].asfloat + Sender);
  Query1.Close;
  Query1.sql.text := 'select count(*) from ware where code=:code';
  Query1.Parameters[0].Value := code;
  Query1.open;
  if Query1.Fields[0].Value > 0 then
  begin
    Sender := sender + 1;
    Newcode(sender);
  end
  else
  begin
   spda.ADOTable2.FieldByName('code').value := code;
  end;
end;
调用代码：NewCode（0）

Answer 1

code := floattostr(100000 + Query1.fields[1].asfloat + Sender);
if Query1.Fields[1].Value > 0 then

Answer 2

 这样改也不行啊，错误提示：
list index out of bounds(1)

Answer 3

晕，没仔细看你select的都是count(*)那你什么都不用改了