下面的程序运行时出错提示是；INSERT INTO 语法错误。我想知道要怎么改啊。。哪个大哥能说说啊，感激不尽了啊！


procedure TForm1.Button2Click(Sender: TObject);
var
q,i,j:integer;
key,password,britosec:string;
begin
i:=random(9);
adoconnection1.Connected:=false;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into key (USERID,USERKEY) values (100,'+Quotedstr(inttostr(i))+')');
adoquery1.ExecSQL;
adoquery1.SQL.Text :='select USERKEY from key where USERID ='+Quotedstr(inttostr(i));
adoquery1.Open;
key:=adoquery1.fieldbyname('USEKEY').AsString;
password:=trim(edit2.Text) ;
j:=1;
for q:=1 to length(password) do
begin
britosec:=britosec+copy(inttostr((ord(key[j]) Xor ord(password[q]))+1000),2,3);
j:=j+1;
if j>length(password) then
j:=1;
end;
edit3.Text:=britosec;
button1.Enabled :=false;
button2.Enabled :=true;
end;