帮忙看下错出在哪里？解决办法

帮忙看下错出在哪里？

Delphi(Pascal) code

procedure TFormSetSystem.btnConfigClick(Sender: TObject);var  sqlstr: string;begin  with qryConfigExec do  begin    sqlstr :='UPDATE SetConfig SET '+            'Byte1Bit0 = : Byte1Bit0,'+            'Byte1Bit1 = : Byte1Bit1,'+            'Byte1Bit2 = : Byte1Bit2,'+            'Byte1Bit3 = : Byte1Bit3,'+            'Byte1Bit4 = : Byte1Bit4,'+            'Byte1Bit5 = : Byte1Bit5,'+            'Byte1Bit6 = : Byte1Bit6,'+            'Byte1Bit7 = : Byte1Bit7,'+            'Byte2Bit0 = : Byte2Bit0,'+            'Byte2Bit1 = : Byte2Bit1,'+            'Byte2Bit2 = : Byte2Bit2,'+            'Byte2Bit3 = : Byte2Bit3,'+            'Byte2Bit4 = : Byte2Bit4,'+            'Byte2Bit5 = : Byte2Bit5,'+            'Byte2Bit6 = : Byte2Bit6,'+            'Byte2Bit7 = : Byte2Bit7 '+            'WHERE ConfigID = '''+edt1.Text+'''';    Close;    SQL.Clear;    SQL.Add(sqlstr);    Parameters[0].Value := cbbByte1Bit0.ItemIndex;    Parameters[1].Value := cbbByte1Bit1.ItemIndex;    Parameters[2].Value := cbbByte1Bit2.ItemIndex;    Parameters[3].Value := cbbByte1Bit3.ItemIndex;    Parameters[4].Value := cbbByte1Bit4.ItemIndex;    Parameters[5].Value := cbbByte1Bit5.ItemIndex;    Parameters[6].Value := cbbByte1Bit6.ItemIndex;    Parameters[7].Value := cbbByte1Bit7.ItemIndex;    Parameters[8].Value := cbbByte2Bit0.ItemIndex;    Parameters[9].Value := cbbByte2Bit1.ItemIndex;    Parameters[10].Value := cbbByte2Bit2.ItemIndex;    Parameters[11].Value := cbbByte2Bit3.ItemIndex;    Parameters[12].Value := cbbByte2Bit4.ItemIndex;    Parameters[13].Value := cbbByte2Bit5.ItemIndex;    Parameters[14].Value := cbbByte2Bit6.ItemIndex;    Parameters[15].Value := cbbByte2Bit7.ItemIndex;    try      ShowMessage(qryConfigExec.SQL.Text);      ExecSQL;      with qryConfigShow do      begin        Close;        Open;      end;      MessageBox(Handle, PChar('修改项目配置成功'), '提示信息', MB_OK + MB_ICONWARNING);    except      MessageBox(Handle, PChar('修改项目配置失败'), '提示信息', MB_OK + MB_ICONWARNING);    end;  end;end;