begin
Close;
ADOQueryUpdate.SQL.Clear;
ADOQueryUpdate.SQL.Add( 'UPDATE Tiket SET');
ADOQueryUpdate.SQL.Add( 'Estatus = ' +QuotedStr('OLD'));
ADOQueryUpdate.SQL.Add(' WHERE Item =:valor');
ADOQueryUpdate.Parameters.ParamByName('Valor').Value := StrToInt(Label3.Caption);
ADOQueryUpdate.ExecSQL;
end;