var zz,zz1:string;
begin
for i:=1 to 200 do
begin
case i of
1..9:zz:='00'+inttostr(i);
10..99:zz:='0'+inttostr(i);
100:200:zz:=inttostr(i);
end;
query1.close;
query1.sql.clear;
zz1:='insert into tablename values('+zz+')';
query1.sql.add(zz1);
query1.execsql;
end;
end