delphi dbgrid删除记录出错（删除选中行） adquery1:field 'id' not found

var id:string;
begin

if application.MessageBox('确定要删除吗？','警告',MB_YESNO)=idno then exit;
begin

try
with adoquery1 do
begin
id:=ADOQuery1.FieldByName('id').AsString;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from jsj where id ='+id);
ExecSQL;
end;
messagebox(handle,'删除成功','提醒',MB_OK);
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from jsj');
ADOQuery2.Open;
except
messagebox(handle,'数据异常','提醒',MB_OK);
Exit;
end;
不知道哪里错了，我是初学者，请说得祥细一点，谢谢
end;
end;

adoquery1.SQL.Add('delete from jsj where id ='+id);
----这一句的id是要将变量id的字符串值放在此处，且要用单引号括起来，可改为：

adoquery1.SQL.Add('delete from jsj where id =' + '''' + id + '''');

虽然我很聪明，但这么说真的难到我了