Update repetido el primero Funciona pero el segundo no

[giantonti1801]

Hola amigo tengo una consulta tengo esta instrucion pegada a un boton

Código Delphi [-]
 Begin
           ADOQueryUpdate.Open;
            ADOQueryUpdate.SQL.ADD('update tiket set Estatus = :Estatus,Usuario= :Usuario WHERE Item = :Item');
            ADOQueryUpdate.Parameters.ParamByName ('Estatus').Value := 'OLD';
            ADOQueryUpdate.Parameters.ParamByName ('Usuario').value := Label4.Caption;
            ADOQueryUpdate.Parameters.ParamByName ('Item').value := Label3.Caption;
            ADOQueryUpdate.ExecSQL;
            ShowMessage ('LO GRABE');
                begin
                ADOQuery1.Close;
                ADOQuery1.Open;
                    begin
                     Label1.Caption := 'A00' + ADOQuery1.fieldbyname('Item').asstring;
                     Label3.Caption := ADOQuery1.fieldbyname('Item').asstring;
                     Image3.Visible := true;
                     ShowMessage ('SIGUIENTE');
                     
                     end

Cuando lo ejecuto por primera vez me funciona perfecto pero al ejecutarlo por segunda vez me da error, posiblemente hay algo que esto dejando abierto o cerrado o no lo se pero no me deja avanzar,