Fórum números em seguencia #511511

ola pessoal tentando fazer um codigo mais nao esta dando certo preciso mostra uma tabela do bancos de dados que mostre os produtos, ate ai tudo bem mostra, mas que mostrar em seguencia tipo assim 000001,000002, tenho esse codigo ai em baixo mas ele mostra os produtos mas o ultimo produto ele mostra 5 vezes

var
x: integer

begin
query.close;
query.sql.clear;
query.sql.add('select * from produto');
query.open;

for x := 1 to 30 do

begin

for x := 1 to 30 do
begin

COD_ITEM := FormatFloat('000000', x);

end;

end;
end;